Заменить в строке все цифры на символ буквы А - Pascal

Задана строка в длину 15, заменить в строке все цифры на символ буквы А

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

for i:=1 to length(s) do
if s[i]  in ['0'..'9'] then s[i]:='A';

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

Создается цикл for с переменной i от 1 до длины строки s.
Проверяется условие: если символ строки s по индексу i является цифрой (от '0' до '9'), то выполняется следующее действие.
Букве на позиции i в строке s присваивается значение 'A'. Итак, цикл проходит по строке s и заменяет все цифры на символ буквы A.

Оцени полезность:

7 голосов , оценка 4 из 5

Похожие ответы