Решите задачу по информатике до 5-ого этапа В аэробусе, вмещающем 160 пассажиров, три...

Question

Решите задачу по информатике до 5-ого этапа
В аэробусе, вмещающем 160 пассажиров, три четверти мест находятся в салонах экономического класса и одна четверть мест - в салоне бизнес-класса.
Стоимость билета в салоне бизнес класса составляет х рублей, что в два раза выше стоимости билета в салоне эконом класса. Разработайте программу, которая вычислит сумму денег, полученную авиакомпанией от продажи билетов на этот рейс, если известно, что остались нераспроданными а билетов бизнес класса и b билетов экономического класса.
Выделите все этапы решения этой задачи и опишите свои действия на каждом из них.

Answer 1

Var a, b: integer; S, x: real;
BEGIN
writeln ('Подсчёт суммы от продажи билетов');
write ('Введите количество непроданных билетов бизнес-класса: ');
readln (a);
write ('Введите количество непроданных билетов эконом-класса: ');
readln (b);
write ('Введите стоимость билетов в бизнес-классе: ');
readln (x);
S := (40-a)*x + (120-b)*x/2;
writeln ('Билетов продано на ', S , ' рублей');
END.