POWER - Lũy thừa

Tác giả: flashmt

Ngôn ngữ: Pascal

var a,b:int64; j,k,i,t:longint;
    t1,b1,k1:real;

begin
     READLN(t);
     FOR i:=1 TO t DO
     begin
          readln(a,b);
          b1:=b;
          k1:=ln(b1)/ln(2);
          k:=trunc(k1);
          for j:=k downto 1 do
          begin
               t1:=exp(1/j*ln(b));
               t1:=trunc(t1);
               if exp(j*ln(t1))>=a then break;
          end;
          writeln('Case #',i,': ',j);
     end;
end.

Download