uses crt;
var n:longint;
k:byte;
begin
clrscr;
write('n=');
readln(n);
k:=0;
while n>0 do
begin
if (n mod 10) mod 2=0 then k:=k+1;
n:=n div 10;
end;
write('Количество четных цифр=',k);
readln
end.
uses crt;
var n:longint;
k:byte;
begin
clrscr;
write('n=');
readln(n);
k:=0;
while n>0 do
begin
if (n mod 10) mod 2=0 then k:=k+1;
n:=n div 10;
end;
write('Количество четных цифр=',k);
readln
end.