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

Nikon
Oct 24, 2020
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
Смежные вопросы: