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

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

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

var s :string;
    i, n :integer;

begin
  s := 'Lorem5Ipsum7is1simply1dummy3text8of9the0printing4and6typesettin2industry';
  n := 0;
  for i := 1 to length(s) do
    if (s[i] >= '0') and (s[i] <= '9') then
      n := n + 1;
  writeln(n);
end.