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.