Определить количество цифр в заданной строке - Pascal
Формулировка задачи:
Дана строка, определить кол-во цифр в заданной строке
Решение задачи: «Определить количество цифр в заданной строке»
textual
Листинг программы
k:=0; for i:=1 to length(s) do if s[i] in ['0'..'9'] then k:=k+1;
Объяснение кода листинга программы
- Устанавливается начальное значение переменной
kравное 0:k:=0; - Для каждого символа в строке
sот 1 до длины строки выполняется: 2.1. Если текущий символs[i]принадлежит диапазону от '0' до '9', т.е. является цифрой:- Увеличивается значение переменной
kна 1:k:=k+1;Этот код подсчитывает количество цифр в строкеsи сохраняет этот результат в переменнойk.
- Увеличивается значение переменной