• Решить в Pascal:
    Дана строка и некоторое слово. Напечатать те предложения строки, которые содержат данное слово.

Ответы 3

  • Спасибо огромное)))
  • Пожалуйста
  • PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  var s:=ReadlnString;  var a:=s.ToWords('.').Select(t->Trim(t)).ToArray;  var b:=s.ToWords(Arr('.',' '))      .GroupBy(t->t).Select(t->(t.Key,t.Count))      .Where(t->t[1]>1).Select(t->t[0]).ToArray;  a.Cartesian(b,(p,q)->p.Contains(q)?p:'')      .Where(t->t.Length>0).Distinct.PrintLinesend.ПримерыМама мыла полы. Маша ела кашу. Даша пила молоко. Таня мыла полы.Мама мыла полыТаня мыла полыМама мыла раму. Маша ела кашу. Даша пила молоко. Таня мыла полы.Мама мыла рамуТаня мыла полы
    • Автор:

      Álvaro83
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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