Спрограммой. pascalabc.net ввести последовательность от 1 до 30 слов, в каждом слове от 1 до 10 латинских букв. между соседними словами не менее одного пробела, за последним словом стоит точка. 1) вывести последовательность в обратном порядке слов 2) вывести последовательность, удалив из неё повторное включение слов. тема новая, плохо разбераюсь заранее .

Alina29052006 Alina29052006    1   21.08.2019 01:50    0

Ответы
Zhanelka1028 Zhanelka1028  05.10.2020 08:24
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  var a:=s.Left(Pos('.',s)-1).ToWords; // все до точки, по словам
  a.Reverse.Println; // обратный порядок слов
  a.Distinct.Println // без дубликатов
end.

Пример
арбуз     барабан арбуз  вагон голова      дом арбуз. ель
арбуз дом голова вагон арбуз барабан арбуз
арбуз барабан вагон голова дом
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика