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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.