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

Question

Ксенья

2 октября, 22:17

+1

Ответы (1)

Знаете ответ?

Василисса · Answer 1

Var

p, num: integer;

begin

p : = 1;

while p < = 1000 do

begin

read (num) ;

p : = p*num;

end;

writeln (p) ;

end.