задача 3 урок 17

задача 3 урок 17

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

РЕШЕНИЕ

program task_3_lesson_17;
var i, n: integer;
    s: string;
begin
  n := 0;
  writeln('vvedite stroku');
  readln(s);
  for i := 1 to length(s) do
    if (s[i] >= '0') and (s[i] <= '9') then
      n += 1;
  write('stroka soderjit ', n, ' cifr');
  readln
end.

консоль

vvedite stroku
34jk pooeoe333 090
stroka soderjit 8 cifr