Напишите программу с использованием пользовательской функции, которая определяла бы делится число на 5 или нет.
141
458
Ответы на вопрос:
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
Популярно: Информатика
-
Exem7625.02.2020 05:34
-
alistas08.11.2021 23:20
-
vlmx2freddy20.01.2021 02:45
-
yuliav180130.09.2021 23:38
-
adrienagreste106.03.2023 06:01
-
Djamkaa032505.08.2020 14:42
-
leeesy66427.10.2022 06:22
-
lubavoytenko00326.06.2021 19:01
-
максим167628.06.2021 21:40
-
ivanmoskvin17721.09.2021 08:44