Ладно смотрите пример во вложении. Проверяйте спрашивайте. Я контроль значения параметра a добавил.
Во всех случаях результат будет выглядеть как 10.
Поскольку максимальная цифра в системе с основанием N будет равна N-1.
В двоичной системе максимальная цифра 1.
В троичной 2, и т.д. - в девятеричной 8.
А для записи числа N нужно задействовать следующий разряд.
В двоичной 1+1=10
В троичной 1+2 =10
и т.д.
В девятеричной 1+8 = 10
STRING строковый, CHAR символьный...
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>Задача М</em>
begin
var a:=ReadInteger.ToString.AdjacentGroup;
var f:=False;
foreach var g in a do
if g.Count>1 then begin
Write('YES'); f:=true; break
end;
if not f then Write('NO')
end.
<u>Примеры</u>
5221
YES
1232
NO
<em>Задача О</em>
begin
var s:=ReadInteger.ToString;
if s.Length<>(s.Distinct).Count then Write('YES')
else Write('NO')
end.
<u>Примеры</u>
212
YES
12345
NO