但可以边转换成二进制边求和。

这样就不需要开数组了。

var

n,k,m,x:longint；

begin

readln(m,n)；

k:=1；

while n<>0 do

begin

x:=x+n mod 2 * k；

n:=n div 2；

k:=k*m；

end；

writeln(x)；

end.