Помогите решить задачу в PascalABC. Вот какая должна получится программа: "Пока пользователь вводит с клавиатуры положительные числа, умножайте их.

Question

Информатика

Гаврил

13 сентября, 09:38

Помогите решить задачу в PascalABC. Вот какая должна получится программа: "Пока пользователь вводит с клавиатуры положительные числа, умножайте их.

+4

Ответы (1)

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

Костюха · Answer 1

Var

n, mult, count: integer;

begin

n : = 1;

mult : = 1;

while n > 0 do

begin

inc (count) ;

mult : = mult * n;

read (n) ;

end;

writeln ('Количество чисел: ', count - 1) ;

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

end.