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

Урок 17

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

var s: string;
    i, t: integer;

begin
  t := 0;
  writeln('Введите строку');
  readln(s);
   for i := 1 to length(s) do
     if (s[i] >= '0') and (s[i] <= '9') then
      inc(t);
  writeln(t);
  readln();
end.

КОНСОЛЬ

Введите строку
srdhgsedfhbsdfhb3245sfgbsdfxbds
4