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

Question

Вводить с клавиатуры числа и посчитать количество четных чисел до нуля.

Создать программу используя Until и Repeat

Answer 1

Var A,k:integer;
Begin
k:=-1;
Repeat
Read(A);
if A mod 2 = 0 then k:=k+1;
Until A=0;
WriteLn('k = ',k)
End.

Comments

А почему k:=-1, а не 0 например?

---

Вот как раз потому, что ноль не учитывается. Остаток от деления нуля на 2 = 0, поэтому программа его посчитает, значит нужно из k вычесть единицу.

---

Спасибо огромнейшее!