Вывести все слова последовательности, отличные от последнего слова

@Opica · Регистрация: 10.12.2020

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

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

@canadamoscow · 11.12.2020, 13:00

Pascal

##
var s := ReadlnString('==>').toWords(|' ',',','.'|);
var lastword := s.Last;
s.SkipLast.Select(t->t.Length.IsOdd?t.Remove(t.Length div 2,1):t).Where(slovo->slovo <> lastword).Println

@JuriiMW · 13.12.2020, 08:02

Pascal

1 2	## var s:=ReadLnString.ToWords(' .'.ToArray); s.Where(word->word.ToUpper<>s.Last.ToUpper).Select(word->word.Length.IsOdd?word.Remove(word.Length div 2,1):word).Println;

@Opica 0 / 0 / 0 Регистрация: 10.12.2020 Сообщений: 11
		1
	Вывести все слова последовательности, отличные от последнего слова 11.12.2020, 07:20. Показов 1405. Ответов 2 Метки pascalabc.net (Все метки) Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных латинских букв; между соседними словами – пробел, за последним словом – точка. Вывести все слова последовательности, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: если слово нечётной длины, то удалить его среднюю букву. Буду очень благодарен! 0

	13.12.2020, 08:02

Вывести все слова последовательности, отличные от последнего слова

Решение