讨论 / 水啊………………
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.

#1 LisaXu@2017-12-10 04:04:28
回复 删除
额。。。牛人一个。。
查看更多回复
提交回复