Количество четных элементов последовательности (Pascal)

AvariItigail

25 апреля 2016

Определите количество четных элементов в последовательности, завершающейся числом 0.

Само число 0, и все, что следует за ним, учитывать не нужно.

Входные данные
Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит).

Выходные данные
Выведите ответ на задачу.

Исходный код на языке Pascal

var
  a, k: integer;

begin
  k := 0;
  read(a);
  while a <> 0 do
  begin
    if (a mod 2 = 0) then 
      k := k + 1;
    read(a);
  end;
  writeln(k);
end.