Удалить из каждого слова последнюю букву - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д