Туристи придбали на автобус п ять квитків для дорослих за 18,50 грн кожний і три квитки для дітей за - id1801883020201127 от ismail00 27.11.2020 06:32

Question

Информатика: Туристи придбали на автобус п ять квитків для дорослих за 18,50 грн кожний і три квитки для дітей за 9,25 грн. Скласти програму для визначення суми ,яку треба заплатити за всі квитки, і вивести на екран повідомлення «Щасливої догоги!». зробити в паскаль

ismail00 · Accepted Answer

var

n, max, count, contrl, max2: integer;

begin

contrl := 0;

max := 0;

Writeln('Введите числа: ');

Readln(n);

while n <> 0 do

begin

Inc(count);

if n>max then begin max2:=max; max:=n end

else if n > max2 then max2 := n;

Read(n);

end;

max2*=max;

Writeln('Введите контрольное значение: ');

Read(contrl);

Writeln('Получено: ', count, ' чисел');

Writeln('Получено контрольное значение: ', contrl);

Writeln('Вычисленное контрольное значение:: ', max2);

if contrl = max then Writeln('Контроль пройден')

else Writeln('Контроль не пройден');

end.

MOGZ ответил