Берём 2 людоедов перевозим их на 2 берег берём с самой 1 людоеда плывём на 1 высаживаем людоеда и берём 2 людей перевозим на 2 высаживаем берём людоеда плывём на 1 берег берём 2 людоеда и везём на 2 берег)
В поисковике забей открой с 1 по 3 сайт
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadlnString.ToWords;
a.Where(t->(t<>a[0]) and (t.Length<>t.Distinct.Count)).Println
end.
<u>Пример</u>
vanitas vanitatum et omnia vanitas
vanitatum