В системе счисления
Приведём решение данной задачи на языке Python.
for p in range(10, 17):
for x in range(p):
for y in range(p):
s=x*(p**3)+x*(p**2)+x*p+8+4*(p**3)+3*(p**2)+x*p+9
r=y*(p**3)+y*(p**2)+0+4
if s==r:
print(y*(p**2)+y*(p)+x)
Ответ: 1826.
Приведём решение Ильи Андрианова на языке Python.
alphabet = sorted('0123456789QWERTYUIOPASDFGHJKLZXCVBNM')
for p in range(10, 36+1):
for x in alphabet[:p]:
for y in alphabet[:p]:
A = int(f'{x}{x}{x}8', p)
B = int(f'43{x}9', p)
C = int(f'{y}{y}04', p)
if A + B == C:
print(int(f'{y}{y}{x}', p))
Приведём решение Сергея Донец на PascalABC.NET:
var d := (('0'..'9') + ('A'..'Z')).ToArray;
function Horner(s: string; baseN: integer): Integer;
begin Result := 0;
foreach var ch in s do
Result := Result * baseN + d.IndexOf(ch);
end;
begin
for var p:=10 to 36 do
foreach var x in d do
foreach var y in d do begin
var b := Horner($'43{x}9', p);
var a := Horner($'{x}{x}{x}8', p);
var c := Horner($'{y}{y}04', p);
if a+b=c then begin
Println(Horner($'{y}{y}{x}', p));
exit; end; end;
end.