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

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

1

Ответы и объяснения

2013-04-29T15:12:40+00:00

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.