Операнды арифметического выражения записаны в системах счисления с основаниями
8x78y13 + 79xy718.
В записи чисел
При помощи цикла for будем перебирать
Приведём решение на языке Python.
result_search = []
for x in '0123456789ABC':
for y in '0123456789ABC':
t = int('8' + x + '78' + y, 13) + int('79' + x + y + '7', 18)
if t % 9 == 0:
result_search.append(t)
if result_search:
print(min(result_search) // 9)
Ответ: 113024.
Приведём решение Ильи Андрианова на языке Python.
alphabet = sorted('0123456789QWERTYUIOPASDFGHJKLZXCVBNM')
for x in alphabet[:13]:
for y in alphabet[:13]:
A = int(f'8{x}78{y}', 13)
B = int(f'79{x}{y}7', 18)
if (A + B) % 9 == 0:
print((A + B) // 9)
exit()
Приведём решение Юрия Красильникова на языке Python.
d='0123456789ABC'
a=[int(f'8{x}78{y}',13)+int(f'79{x}{y}7',18) for x in d for y in d]
print(min([x for x in a if x%9==0])//9)
Приведём решение Сергея Донец на языке PascalABC.NET.
uses School;
begin
var alph := (('0'..'9') + ('A'..'Z')).ToArray;
var minVal := MaxInt;
var ans := 0;
var d:=9;
foreach var x in alph[:13] do
foreach var y in alph[:13] do begin
var a := Dec($'8{x}78{y}', 13);
var b := Dec($'79{x}{y}7', 18);
var s := a + b;
if (s mod d = 0) and (s < minVal)
then begin
minVal := s;
ans := s div d;
end;
end;
ans.Print;
end.