vark:integer;
a,n:longint;beginwrite ('A =');readln(a);n:=a; while n div 10 <> 0 do beginn:=a; if odd(n mod 10)=false then k:=k+1;a:=a div 10;end;
writeln (k);readln;end.
