Количество цифр в строке

Задача

Написать программу, которая подсчитывает, сколько содержится цифр в строке.

Решение

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

Известно, что символы цифр в этой таблице имеют порядковые номера от 48 (для нуля) до 57 (для девятки) включительно. Если номер очередного извлеченного из строки символа попадает в данный диапазон, значит перед нами цифра. В этом случае следует увеличить на единицу счетчик цифр, то есть переменную n.

var
    s: string;
    i, n, len: byte;
 
begin
    readln(s);
    len := length(s);
 
    n := 0;
    for i:=1 to len do 
        if (ord(s[i]) > 47) and (ord(s[i]) < 58) then 
            n := n + 1;
 
    writeln(n);
end.

Пример выполнения:

one 5 t60
3