Program n_infa1611; var a, b: integer; s, x: real;
begin
writeln ('Подсчет суммы от продажи билетов');
writeln ('Количество a непроданных билетов бизнес-класса');
readln (a);
writeln ('Количество b непроданных билетов экономического класса');
readln (b);
writeln ('Стоимость билетов бизнес-класса х');
readln (x);
s:=(40-a)*x+(120-b)*x/2;
writeln ('Билетов продано на ', s,' руб.')
end.

​

И1111111111111111    1   18.11.2020 12:25    0