написать на Паскале условие задачи №2: ввод с клавиатуры последовательности чисел заканчивается вводом нуля, найти произведение этих чисел, нуль в последовательность не входит.

Question

Информатика

Макрина

18 декабря, 21:37

написать на Паскале условие задачи №2: ввод с клавиатуры последовательности чисел заканчивается вводом нуля, найти произведение этих чисел, нуль в последовательность не входит.

+5

Ответы (1)

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

Малаша · Answer 1

Program Chisla;

Uses Crt;

var p, c:real;

begin

clrscr;

write ('Введите числа конец ввода 0:') ;

p:=1;

repeat

readln (c) ;

if (c=0) then break

else p:=p*c;

until (c=0) ;

writeln ('Произведение чисел = ', p) ;

readkey;

end.