timetobehardworking 2009-05-15 21:23:00
点我顶贴
收藏
删除
这题思路都是一样的。
但可以边转换成二进制边求和。
这样就不需要开数组了。
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.