Заменить в строке все цифры на символ буквы А - Pascal
Формулировка задачи:
Задана строка в длину 15, заменить в строке все цифры на символ буквы А
Решение задачи: «Заменить в строке все цифры на символ буквы А»
textual
Листинг программы
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.