Удалить из каждого слова последнюю букву - 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.