Аверкий
5 год назад
Пожалуйста посчитайте с программой. PascalABC.NETВвести последовательность от 1 до 30 слов, в каждом слове от 1 до 10 латинских букв. Между соседними словами не менее одного пробела, за последним словом стоит точка. 1) вывести последовательность в обратном порядке слов2) вывести последовательность, удалив из неё повторное включение слов. Тема новая, плохо разбераюсь. Прошу помощи. Заранее спасибо.
ОТВЕТЫ
Evstignej
Oct 24, 2020
begin
var s:=ReadlnString;
var a:=s.Left(Pos('.',s)-1).ToWords; // все до точки, по словам
a.Reverse.Println; // обратный порядок слов
a.Distinct.Println // без дубликатов
end.
арбуз барабан арбуз вагон голова дом арбуз. ель
арбуз дом голова вагон арбуз барабан арбуз
арбуз барабан вагон голова дом
835
Смежные вопросы:
