Посчитать количество четных цифр любого числа Паскаль

Question

Посчитать количество четных цифр любого числа
Паскаль

Answer 1

Var
  n:longint;
  d,k:integer;
begin
  Write('Введите натуральное число: '); Read(n);
  k:=0;
  while n>0 do begin
    d:=n mod 10;
    n:=n div 10;
    if (d mod 2)=0 then Inc(k)
  end;
  Writeln('Количество четных цифр равно ',k)
end.