Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

ПАСКАЛЬ, ИНФОРМАТИКА. п о м о г и т е
Дано натуральное число. Найти количество нечетных цифр в нем.

Ответ оставил Гость

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;
end.