Переписать строку задом наперед, удалив из нее цифры и пробелы - Turbo Pascal
Формулировка задачи:
Дана символьная строка, содержащая русские буквы , цифры, пробелы. Написать строку задом наперед, удалить из нее все цифры и проблемы.
Помогите пожалуйста, очень нужна помощь. Если не сложно то еще пояснить свои действия в программе
Решение задачи: «Переписать строку задом наперед, удалив из нее цифры и пробелы»
textual
Листинг программы
Var S : String; i : Byte; Begin S:='шла Саша по 66-ому шоссе и грызла орехи'; For i:=Length(S) downto 1 do Case S[i] of '0'..'9',' ' : write; else Write(S[i]); End; Writeln; End.
Объяснение кода листинга программы
- В начале объявляются переменные S и i типа String и Byte соответственно.
- Далее присваивается значение переменной S, которое представляет собой строку
шла Саша по 66-ому шоссе и грызла орехи
. - Затем используется цикл For, который проходит по каждому символу строки S, начиная с индекса Length(S) и до 1.
- Внутри цикла используется оператор Case для проверки каждого символа.
- Если символ является цифрой от 0 до 9 или пробелом, то он записывается в выходную строку.
- Если символ не соответствует ни одному из указанных вариантов, то он просто записывается в выходную строку.
- После завершения цикла выводится символ новой строки с помощью функции Writeln.