В системе счисления
Приведём решение данной задачи на языке Python.
for p in range(10, 17):
for x in range(p):
for y in range(p):
s = 3 * (p**3) + 2 * (p**2) + x * p + 8 + x * (p**3) + x * (p**2) + x * p + 9
r = y * (p**3) + y * (p**2) + 0 + 2
if s == r:
print(y * (p**2) + y * (p) + x)
Ответ: 2407.
Приведём решение Юрия Красильникова на языке Python.
d='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
for p in range(10,36):
ans=[int(y+y+x,p) for x in d[1:p] for y in d[1:p] if int('32'+x+'8',p)+int(x+x+x+'9',p)==int(y+y+'02',p)]
if len(ans)!=0: print(*ans)
Приведём решение Ильи Андрианова на языке Python.
alphabet = sorted('0123456789QWERTYUIOPASDFGHJKLZXCVBNM')
for p in range(10, 36+1):
for x in alphabet[:p]:
for y in alphabet[:p]:
if int(f'32{x}8', p) + int(x+x+x+'9', p) == int(f'{y}{y}02', p):
print(int(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 a := Horner($'32{x}8', p);
var b := Horner($'{x}{x}{x}9', p);
var c := Horner($'{y}{y}02', p);
if a+b=c then begin
Println(Horner($'{y}{y}{x}', p));
exit; end; end;
end.