Складываем "в столбик"
123
+132
------
321
Обратим внимание на правый (младший) разряд. 3+2=1. Конечно же понятно, что не 1, а 11 - был перенос +1 в старший разряд.
Но в привычной десятичной системе счисления 3+2=5 и остается решить вопрос нахождения такого основания системы счисления х, при котором 5 превращается в 11.
1×х+1 = 5 → <u>x=4 </u>- это и есть ответ.
Можно проверить: 123₄ + 132₄ = 321₄ - все верно.
Var
n,i:integer;
Begin
Write('n = ');Read(n);
i:=0;
if n div 1000 = n mod 10 then i:=i+1;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if i=1 then Write('Верно')
else Write('Не верно')
End.