shit 2012-01-19 17:49:00
点我顶贴
收藏
删除
program hhh;
const
inf='reverse.in';
ouf='reverse.out';
var
a,s,d,v,i,j,k,n:int64;
x:boolean;
q,w,e:string;
ch:char;
b:array[1..10000] of byte;
procedure init;
begin
assign(input,inf);
reset(input);
assign(output,ouf);
rewrite(output);
end;
begin
init;
readln(k,n);
s:=0; v:=0;
a:=1;
while n>0 do
begin
s:=n mod 2;
n:=n div 2;
v:=v+s*a;
a:=a*k;
end;
if v=0 then writeln(1)
else writeln(v);
close(input);
close(output);
end.