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

Question

Информатика

Васюха

3 марта, 10:25

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

+2

Ответы (1)

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

Витаха · Answer 1

Var x, y: word;

begin writeln ('Введите число') ;

readln (x) ;

y:=1;

while y0 do

begin

x:=x*y;

writeln ('Произведение равно = ', (x)) ;

writeln ('Введите число') ;

readln (y)

end;

end.