Найдите количество чётных цифр заданного числа

по программе pascal.

1

Ответы и объяснения

2013-05-21T17:13:00+04:00

var
k:integer;

a,n:longint;
begin
write ('A =');readln(a);
n:=a; 
while n div 10 <> 0 do begin
n:=a; 
if odd(n mod 10)=false then k:=k+1;
a:=a div 10;
end;

writeln (k);
readln;
end.