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

Question

Информатика

Альфред

1 июля, 21:56

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

+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.