a474908647 2008-03-12 04:16:00
点我顶贴
收藏
删除
program p4；
var
sz:array [1..100] of integer；
a,n,i,k,b:longint；
z:longint；
begin
read(k,n)；
a:=0；z:=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；
z:=z+sz[b]*i；
i:=i*k；
end；
writeln(z)；
end.