tyngpuk

Ответ:

program k;

var a,k1,k2:integer;

begin

read(a);

k1:=0;

k2:=0;

while a>0 do

begin

if a mod 10 mod 2 = 0 then k2:=k2+1

else k1:=k1+1;

a:=a div 10

end;

write(k2,' ',k1)

end.