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

Question

Ксюня

15 июля, 19:42

+3

Ответы (1)

Знаете ответ на вопрос?

Венедей · Answer 1

Var

p, num: integer;

begin

p : = 1;

while p < = 1000 do

begin

read (num) ;

p : = p*num;

end;

writeln (p) ;

end.