Ответы на вопрос:
Program qq; var x, y, z, c, a, b: real; begin writeln('введите стоимость билета бизнесс-класса: '); readln(x); if x > 0 then begin y: = x / 2; writeln('введите количество оставшихся билетов бизнесс-класса, затем введите количество оставшихся билетов эконом-класса'); readln(a, b); if (a > =0) and (b > = 0) then begin c: = a*x + y*b; z: = (120*y + 40*x) - c ; writeln('доход авиакомпании: ', z); end else writeln('решение невозможно'); end; end.вот так всё работает. 1. не там поставили end; 2. лишнее else writeln('решение невозможно'); 3. у меня ругался паскаль на то что в условия при and не взяты в круглые скобки. if (a > =0) and (b > = 0) then
Популярно: Информатика
-
Чай2220.05.2020 09:41
-
Gerri1114.05.2022 09:21
-
anonims12345678910.11.2022 13:14
-
26nn20.02.2021 20:23
-
DemEntrA13207.12.2021 08:00
-
romanesterov204.04.2022 12:24
-
Makich413.07.2020 14:19
-
Ульяна1111111212.02.2020 22:08
-
elenkagumerovalistru14.10.2021 04:54
-
vikagalimzhano29.02.2020 07:56