• Вопрос по информатике:

    Язык PascalABC
    Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству: в слове есть повторяющиеся буквы.

    • Автор:

      annelang
  • Ответ:

    // PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadlnString.ToWords;  a.Where(t->(t<>a[0]) and (t.Length<>t.Distinct.Count)).Printlnend.Примерvanitas vanitatum et omnia vanitasvanitatum
    • Отвечал:

      codichen

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска