Язык PascalABC Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых...

Question

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

Comments

Pascal ABC тоже интересует,жду ответов

Answer 1

// 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)).Println
end.

Пример
vanitas vanitatum et omnia vanitas
vanitatum