Ответы на вопрос:
работающая программа:
program v1;
var x, a, b, s, l, k, r, t: real;
begin
writeln ('введите стоимость билета в бизнес класс');
readln(x);
writeln ('сколько билетов в бизнес класс не продали? ');
readln (a);
writeln ('сколько билетов в эконом класс не продали? ');
readln (b);
s: = 100*x;
t: = 1/2*b*x;
l: = a*x;
k: = t+l;
r: = s-k;
writeln (r);
end.
Популярно: Информатика
-
Loskinstem561730.05.2023 19:17
-
tatos122.06.2023 14:05
-
dimaschastny12.06.2020 19:34
-
polinaponomare122.06.2022 11:28
-
AiserCool31.12.2022 13:43
-
obona0227.02.2021 16:10
-
Nar4317.01.2021 22:38
-
NiVan133725.02.2021 22:34
-
andreevik200325.03.2023 13:13
-
Artur202101.06.2020 17:25