Rabbey 2012-01-18 02:44:00
点我顶贴
收藏
删除
var k,n,i,j,l:longint;
function t(m:longint):longint;
begin
i:=0;
j:=1;
while m>=j do begin j:=j*2;inc(i);end;
dec(i);
j:=j div 2;
if m=j then begin t:=1; for l:=1 to i do t:=t*k;end
else
t:=t(j)+t(m-j);
end;
begin
readln(k,n);
writeln(t(n));
end.
主要是数学问题···思考一会就出来了···