Удалить из каждого слова последнюю букву - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых до 8 строчных букв. Между соседними словами не меньше 1 пробела. За последним словом стоит точка. Напечатать все слова, преобразовав каждое из них следующим образом: УДАЛИТЬ ИЗ КАЖДОГО СЛОВА ПОСЛЕДНЮЮ БУКВУ. (В Паскале)

Решение задачи: «Удалить из каждого слова последнюю букву»

textual
Листинг программы
  1. Var s,sl:string;
  2.     ch:char;
  3.  
  4. Begin
  5.     write('Последовательность слов: ');
  6.     readln(s);
  7.     ch:=#32;
  8.     While Pos(ch,s)>0 do
  9.     Begin
  10.       sl:=Copy(s,1,Pos(ch,s)-1);
  11.       Delete(s,1,Pos(ch,s));
  12.       if Pos(ch,s)=0 then ch:=#46;
  13.       writeln(Copy(sl,1,Length(sl)-1));
  14.     End;    
  15. End.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

13   голосов , оценка 3.846 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы