Задача 3 Урок 17

Задача3 Урок 17

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

var s:string;  i,n:Integer;
begin
    readln(s);
    n := 0;
    for i:=1 to Length(s) do begin // обходим строку в цикле
        if (s[i]>='0')and(s[i]<='9') then inc(n);
    end;

    writeln('This string contains ',n,' digits.'); // выводим массив
    readln();
end.
        

Вывод консоли:

asc213cdsfc341reedcdvsr32124
This string contains 11 digits.