Question

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

Answer 1

Var
  i,n,x,y,z:integer;
  s:string;
begin
readln(s);
for i:=1 to length(s) do
  if (47<ord(s[i])) and (ord(s[i])<58) then
  begin
  n:=StrToInt(s[i]);
  case n of  0..9:
     begin
     x:=x+1;
     if n mod 2=0 then y:=y+1 else z:=z+1
     end
   end
   end;
writeln('Число цифр: ',x,'; четных цифр: ',y,'; нечетных цифр: ',z)
end.