内容目录
这题的数据太水……
居然不需要2分Log n查找……尽管我也不知道上限是多少……
Program P3100; var a,b,n,i,j,dis:longint; function pow(a,b:longint):longint; var i:longint; begin if a=0 then exit(0); if a=1 then exit(1); if b=0 then exit(0); if b=1 then exit(a) else begin pow:=pow(a,b shr 1); if (b mod 2=0) then begin exit(pow*pow); end else exit(pow*pow*a); end; end; begin read(b,n); while (b+n>0) do begin i:=0; while (pow(i,n)<b) do begin dis:=b-pow(i,n); inc(i); end; if (pow(i,n)-b>dis) then writeln(i-1) else writeln(i); read(b,n); end; end.