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

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

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

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

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

anya071101 anya071101    3   26.03.2020 21:42    16

Ответы
ivanchistyakov ivanchistyakov  11.09.2020 22:21

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика