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

Question

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

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.

Comments

Спасибо. Есть ещё задача, поможешь?

---

Да

---

С клавиатуры пользователь вводит числа до тех пор, пока не будет введено чётное число. Вычислите произведение введённых чисел

---

Тоже с помощью цикла While

---

Помоги решить, умоляю

---

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

---

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

---

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

---

Исправил

---

Можешь по другому исправить, мы "inc" ещё не изучали, исправь, применяя формулу подсчёта "a:=a+1"