var a,x,k:integer;
begin
write('Введите натуральное число: ');
read(a);
x:=a;
k:=0;
while (x>0) do
if (x mod 2=0) then k:=k+1;
x:=x div 10;
end;
writeln('Количество четный цифр= ',k);
end.
var a,x,k:integer;
begin
write('Введите натуральное число: ');
read(a);
x:=a;
k:=0;
while (x>0) do
begin
if (x mod 2=0) then k:=k+1;
x:=x div 10;
end;
writeln('Количество четный цифр= ',k);
end.