Найти количество цифр в строке символов, используя функции - Pascal ABC

Формулировка задачи:

17. Найти количество цифр в строке символов, используя функции.

Решение задачи: «Найти количество цифр в строке символов, используя функции»

Листинг программы

var
  s:string;
  i,k:integer;
begin
  k:=0; 
  readln(s);
  for i:=1 to length(s) do
    if s[i] in ['0'..'9'] then
      inc(k);
  writeln(k);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Код выполняет следующую задачу: подсчет количества цифр в строке символов. Переменные в коде:

s: строка символов, которую считывает программа из ввода пользователя.
i: переменная для хранения текущего символа строки.
k: переменная для хранения количества цифр. Код начинается с инициализации переменной k значением 0. Затем с помощью функции readln(s) считывается строка символов от пользователя. Далее, с помощью цикла for i:=1 до length(s) происходит обход каждого символа в строке. Если текущий символ является цифрой (согласно условию if s[i] in ['0'..'9']), то значение переменной k увеличивается на 1 с помощью функции inc(k). В конце выводится значение переменной k с помощью функции writeln(k).