Вывести слова, отличные от последнего слова, предварительно удалив из каждого слова первую букву

@eh1de · Регистрация: 06.12.2018

Студворк — интернет-сервис помощи студентам

Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела, за последним словом точка. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: удалить из слова первую букву

Фигня какая-то получается:

Pascal

var
  s, st: string; 
  i: byte;
 
begin
  write('Последовательность слов: '); 
  readln(s); 
  if s[Length(s)] = '.' then Delete(s, Length(s), 1); 
  i := Length(s); 
  st := s + st; 
  Delete(s, 1, 1); 
  if Pos(' ', s) > 0 then 
    Delete(s, 1, 1); 
  writeln(s); 
end.

@xtro · 10.12.2018, 18:55

Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них

@eh1de · 10.12.2018, 18:57 **[ТС]**

Блин, а тему нельзя удалить, а то как-то неудобно получается?)
Спасибо за ответ, кстати!

@xtro 233 / 32 / 19 Регистрация: 10.06.2016 Сообщений: 123
	10.12.2018, 18:55	2
	Сообщение было отмечено eh1de как решение Решение Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них 0

@eh1de 0 / 0 / 1 Регистрация: 06.12.2018 Сообщений: 18
	10.12.2018, 18:57 [ТС]	3
	Блин, а тему нельзя удалить, а то как-то неудобно получается?) Спасибо за ответ, кстати! 0

Опции темы

Вывести слова, отличные от последнего слова, предварительно удалив из каждого слова первую букву

Решение