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.