var a,b,c,d,n:longint; begin assign (input,'input.txt'); reset (input); assign (output,'output.txt'); rewrite (output); read (n); d:=0; n:=abs(n); while (n>0) do begin a:=n mod 10; if (a mod 2 = 1) then d:=d+1; n:=n div 10; end; writeln (d); end. Мем Ванга (цвет)