составить программу которая вводит с клавиатуры и умножает числа до тех пор пока...

June 2022 1 10 Report

составить программу которая вводит с клавиатуры и умножает числа до тех пор пока протизведение не превысит 1000 .Вывести на экран произведение

therealcf2014 Var
p, num: integer;
begin
p := 1;
while p <= 1000 do
begin
read(num);
p := p*num;
end;
writeln(p);
end.

1 votes Thanks 1