Создать программу, которая удаляет последнюю букву во введенном имени, пока не останется только одна буква - Pascal

Создать программу, которая удаляет последнюю букву во введенной имя, пока не останется только одна буква. например, имя: apple appl app ap a

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

  while Length(s)>0 do begin
    WriteLn(s);
    Dec(s[0]);
  end;

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

Задана переменная s типа string, которая содержит введенное имя.
В цикле while происходит проверка условия Length(s)>0, где Length — это функция, определяющая длину строки.
Если условие истинно, то происходит вывод значения переменной s с помощью функции WriteLn.
Затем выполняется уменьшение значения первого символа строки s на единицу с помощью операции Dec(s[0]).
Цикл продолжается до тех пор, пока условие не станет ложным.
В результате выполнения программы последняя буква во введенном имени будет удалена.

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

8 голосов , оценка 4.375 из 5

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