Малефисента7
15.06.2021 10:48

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
natashavoropaeva
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.

Пример
арбуз     барабан арбуз  вагон голова      дом арбуз. ель
арбуз дом голова вагон арбуз барабан арбуз
арбуз барабан вагон голова дом
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота