• Помогите с программой.
    PascalABC.NET
    Ввести последовательность от 1 до 30 слов, в каждом слове от 1 до 10 латинских букв. Между соседними словами не менее одного пробела, за последним словом стоит точка.
    1) вывести последовательность в обратном порядке слов
    2) вывести последовательность, удалив из неё повторное включение слов.
    Тема новая, плохо разбераюсь. Прошу помощи. Заранее спасибо.

Ответы 1

  • // 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.Примерарбуз     барабан арбуз  вагон голова      дом арбуз. ельарбуз дом голова вагон арбуз барабан арбузарбуз барабан вагон голова дом
    • Автор:

      roquekgiz
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years