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

5-й этап

Протестировать программу можно по следующим данным:

а = 39,
b = 119,
х = 2000,
s = 3000.

alanragibov02    3   21.02.2021 16:50    35