Вопрос по информатике:
Помогите с программой.
PascalABC.NET
Ввести последовательность от 1 до 30 слов, в каждом слове от 1 до 10 латинских букв. Между соседними словами не менее одного пробела, за последним словом стоит точка.
1) вывести последовательность в обратном порядке слов
2) вывести последовательность, удалив из неё повторное включение слов.
Тема новая, плохо разбераюсь. Прошу помощи. Заранее спасибо.
- 03.05.2016 05:35
- Информатика
- remove_red_eye 13822
- thumb_up 28
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
var a:=s.Left(Pos('.',s)-1).ToWords; // все до точки, по словам
a.Reverse.Println; // обратный порядок слов
a.Distinct.Println // без дубликатов
end.
Пример
арбуз барабан арбуз вагон голова дом арбуз. ель
арбуз дом голова вагон арбуз барабан арбуз
арбуз барабан вагон голова дом
- 04.05.2016 06:27
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.