Niigpap
4 год назад
составить программу которая вводит с клавиатуры и умножает числа до тех пор пока протизведение не превысит 1000 .Вывести на экран произведение
ОТВЕТЫ
Aleksandra
Oct 24, 2020
var
p, num: integer;
begin
p := 1;
while p <= 1000 do
begin
read(num);
p := p*num;
end;
writeln(p);
end.
p, num: integer;
begin
p := 1;
while p <= 1000 do
begin
read(num);
p := p*num;
end;
writeln(p);
end.
443
Смежные вопросы:
