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

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

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

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

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

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.

если миша запретил маше закрашивать клеточку, двумя или более сторонами примыкающую к уже закрашенным клеточкам, значит маша может закрашивать клеточки в ряд. прямоугольник 4*100 можно представить как 4 ряда по сто клеточек, 2 ряда закрашены - ответ 200

2 способ

маша может закрасит клеточки в шахматном порядке

400 : 2 = 200

11000 (2) = 30 (8) = 18 (16) = 24 (10)

100111 (2) = 47 (8) = 27 (16) = 39 (10)

10100011 (2) = 243 (8) = а3 (16) = 163 (10)

101010101010 (2) = 5252 (8) = (16) = 2730 (10)