Предмет: Информатика, автор: valensa74

Не пойму где ошибка, паскаль формулу не считает, помогите пожалуйста!
В аэробусе, вмещающем 160 пассажиров, три четверти мест находятся в салонах экономического класса и одна четверть мест - бизнес-класса. Стоимость билета в салоне бизнес-класса х рублей, что в 2 раза выше стоимости экономического.
Разработайте программу, которая вычислит сумму денег, полученную от продажи билетов на этот рейс, если известно, что остались не распроданными а билетов бизнес-класса и b билетов эконом класса.
program n_12;
var a, b: integer; s, x: real;
begin
writeln ('Подсчѐт суммы от продажи билетов');
writeln ('Количество непроданных билетов бизнес класса a');
readln (a);
writeln ('Количество непроданных билетов бизнес класса b');
readln (b);
writeln ('Стоимость билетов бизнес класса x');
readln (x);
s := (40 – а)*x+(120 – b)*x/2;
writeln ('Билетов продано на ', s, ' руб.')
end.


антагонист: а какую ошибку выдаёт?

Ответы

Автор ответа: irinatridubenk
0
какая у теб . ошибка?

антагонист: по сути никакой ошибки нет
антагонист: там видимо вместо минусов тире стоят
irinatridubenk: или там где минусы не надо пробелы ставмиь!
антагонист: да не не в этом дело
антагонист: я проверял без пробелов и всёравно не работало
Автор ответа: антагонист
2
program n_12;
var a, b: integer;
s, x: real;
beginwriteln
 ('подсчёт суммы от продажи');
writeln ('количество не проданных билетов бизнес класса  a');
readln (a);
writeln ('количество не проданных билетов эконом класса b');
readln (b);
writeln ('стоимость билета бизнес класса');
readln (x);
s := (40-a)*x+(120-b)*x/2;
writeln ('билетов продано на ', s, ' руб.');
end.

антагонист: а весь прикол в том что я стёр и снова вставил минусы в формуле.
Похожие вопросы