Удалить из каждого слова последнюю букву - Turbo Pascal
Формулировка задачи:
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых до 8 строчных букв. Между соседними словами не меньше 1 пробела. За последним словом стоит точка.
Напечатать все слова, преобразовав каждое из них следующим образом: УДАЛИТЬ ИЗ КАЖДОГО СЛОВА ПОСЛЕДНЮЮ БУКВУ.
(В Паскале)
Решение задачи: «Удалить из каждого слова последнюю букву»
textual
Листинг программы
- Var s,sl:string;
- ch:char;
- Begin
- write('Последовательность слов: ');
- readln(s);
- ch:=#32;
- While Pos(ch,s)>0 do
- Begin
- sl:=Copy(s,1,Pos(ch,s)-1);
- Delete(s,1,Pos(ch,s));
- if Pos(ch,s)=0 then ch:=#46;
- writeln(Copy(sl,1,Length(sl)-1));
- End;
- End.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д