написать программу на Паскале:

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

Question

Информатика

Нона

1 декабря, 03:49

написать программу на Паскале:

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

+4

Ответы (1)

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

Вероня · Answer 1

program p;

var a, b: integer;

begin

a:=1;

repeat begin

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

readln (b) ; if b<0 then a:=a*b;

until b=0; writeln ('Ответ:', a) ;

readln; end.