// PascalABC.NET 3.1, сборка 1171 от 15.02.2016 begin var s:=ReadInteger('n=').ToString; if (Pos(s[1],Copy(s,2,2))>0) or (s[2]=s[3]) then Writeln('Есть одинаковые цифры') else Writeln('Нет одинаковых цифр') end.
<u><em>Тестовое решение:</em></u> n= 141 Есть одинаковые цифры