boolean2 2008-10-27 04:09:00
点我顶贴
收藏
删除
var
sz:array [1..1000]of longint；
a,n,i,k,b:longint；
tot:int64；
begin
read(k,n)；
a:=0；tot:=0；i:=1；b:=0；
while n<>0 do
begin
a:=a+1；
sz[a]:=n mod 2；
n:=n div 2；
end；
while b<=a do
begin
b:=b+1；
tot:=tot+sz[b]*i；
i:=i*k；
end；
writeln(tot)；
end.