ijpoj 2014-09-14 05:34:23
点我顶贴
收藏
删除
var a:array[0..10000] of longint;
i,j,k,n:longint;
w,t:int64;
begin
readln(k,n);
fillchar(a,sizeof(a),0);
j:=0;
while n>0 do
begin
a[j]:=n mod 2;
n:=n div 2;
inc(j);
end;
t:=0;w:=1;
for i:=0 to j do
begin
t:=t+w*a[i];
w:=w*k;
end;
write(t);
end.