Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ



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
411
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам