Вводятся целые тор числа по одному, до тех пор пока не будет введен 0. Посчитать...

Question

Вводятся целые тор числа по одному, до тех пор пока не будет введен 0. Посчитать количество четных чисел.

Язык Паскаль. Использовать оператор while

Comments

А что такое "тор числа"?

---

три*

---

Так исправьте)

---

Только я не понимаю, как это - три числа по одному и пока не введен ноль? Так три или не три?

---

вводятся целые числа по одному, до тех пор пока не будет введен 0. посчитать кол-во четных чисел

---

А причем тогда тут "три", которые "тор"?

---

ошибся

Answer 1

Var
  i, n, k: integer;

begin
  n := 1; k := 0;
  while n <> 0 do
  begin
    Write('Введите целое число, 0 - отказ от ввода: ');
    Readln(n);
    if (n <> 0) and (n mod 2 = 0) then k := k + 1
  end;
  Writeln('Введено четных чисел- ', k)
end.

Введите целое число, 0 - отказ от ввода: 34
Введите целое число, 0 - отказ от ввода: 137
Введите целое число, 0 - отказ от ввода: 72
Введите целое число, 0 - отказ от ввода: 9243
Введите целое число, 0 - отказ от ввода: 0
Введено четных чисел- 2