POJ 3100(非二分不合作)

内容目录

这题的数据太水……

居然不需要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.