Uses Crt; var n: longint; i, Col: integer; S: string; begin ClrScr; Write (' n= '); ReadLn (n); Str (n, S); Col:=0; for i:=1 to length (S) do if (S[i]='1') or (S[i]='3') or (S[i]='5') or (S[i]='7') or (S[i]='9') then Col:=Col+1; WriteLn(' Col = ', Col) ; ReadLn; <span>end.</span>