Помогите решить задачу в PascalABC . Вот какая должна получится программа: "Пока пользователь вводит с клавиатуры положительные числа, умножайте их. Значение произведения и количество введённых чисел выведите на экран" Задача должна решатся с помощью ЦИЛКА WHILE

while n > 0 do замени на while odd(n) do

Кстати, ты задачу немножко не всю решил. Выводится только произведение, а количество введённых чисел НЕ ВЫВОДИТСя

Сейчас исправлю

Исправил

Можешь по другому исправить, мы "inc" ещё не изучали, исправь, применяя формулу подсчёта "a:=a+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.