Question

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

ВХОДНЫЕ ДАННЫЕ

Вводится строка.

ВЫХОДНЫЕ ДАННЫЕ
Выводится одно целое число — количество цифр в этой строке.

ПРИМЕРЫ
ВВОД
123asdeqw.21
ВЫВОД
5

Answer 1

var s: string;

i, counter: integer;

begin

       write('Введите строку: ');

       readln(s);

       for i := 1 to Length(s) do

               if s[i] in ['1'..'9'] then

                       inc(counter);

       writeln(counter);

end.