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

Напишите программу,которая считает количество четных цифр введенного числа

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

Var
 s:string;
 i,n:longint;
begin 
 readln(s); 
 for i:=1 to length(s) do  
  if (s[i]=2)or(s[i]=4)or(s[i]=6)or(s[i]=8) then inc(n);
 writeln(n);
end.