Задание:
1. Составьте программу для определения суммы денег, получаемой авиакомпанией от продажи билетов на рейс из Лондона в Нью-Йорк, если в самолете три четвертипассажиров имеют билеты первого класса, стоимостью Х рублей за каждый. Остальные пассажиры имеют билеты второго класса, которые дешевле на 20%2. Составьте программу определения стоимости набора конфет, в которой находятся следущие сорта: Наименование: Количество: Цена, руб: Красная шапочка 500 г kАлые паруса 200 г aВоронежские 100 г bЧародейка 250 г m
Решение:
Program avia; uses crt; varp: integer; s,s2,pr,ch3: real; beginwriteln ('Стоимость билета 1 класса: '); read (s); writeln ('Общее количество пассажиров: '); read (p); ch3: =(3*(p/4); // 3 четверти пассажировpr: =(s/100)*20; // 20% от стоимостиs2: =(ch3*s)+(p/4)*pr); writeln ('Всего заработает за рейс: ',s2); end.program cena; uses crt; vark,a,b,m,obc: real; beginwriteln ('Цена за конфеты «Красная шапочка": '); read (k); writeln ('Цена за конфеты «Алые паруса": '); read (a); writeln ('Цена за конфеты «Воронежские": '); read (b); writeln ('Цена за конфеты «Чародейка": '); read (m); obc: =0,5*k+0,2*a+0,1*b+0,25*m; writeln ('Всего ',obc,' руб.') end.
Знаете другой ответ?