Задача 3 Урок 17

Задача 3 Урок 17

Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней.

var i,k:integer; s:string;
begin
  readln(s);
  k:=0;
  for i:=1 to Length(s) do
    if (s[i]>='0')and(s[i]<='9') then inc(k);
  write(k);
  readln();
end.