Переписать строку задом наперед, удалив из нее цифры и пробелы - 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.

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

  1. В начале объявляются переменные S и i типа String и Byte соответственно.
  2. Далее присваивается значение переменной S, которое представляет собой строку шла Саша по 66-ому шоссе и грызла орехи.
  3. Затем используется цикл For, который проходит по каждому символу строки S, начиная с индекса Length(S) и до 1.
  4. Внутри цикла используется оператор Case для проверки каждого символа.
  5. Если символ является цифрой от 0 до 9 или пробелом, то он записывается в выходную строку.
  6. Если символ не соответствует ни одному из указанных вариантов, то он просто записывается в выходную строку.
  7. После завершения цикла выводится символ новой строки с помощью функции Writeln.

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

9   голосов , оценка 4.111 из 5
Похожие ответы