fork download
  1. var a,b:int64; j,k,i,t:longint;
  2. t1,b1,k1:real;
  3.  
  4. begin
  5. READLN(t);
  6. FOR i:=1 TO t DO
  7. begin
  8. readln(a,b);
  9. b1:=b;
  10. k1:=ln(b1)/ln(2);
  11. k:=trunc(k1);
  12. for j:=k downto 1 do
  13. begin
  14. t1:=exp(1/j*ln(b));
  15. t1:=trunc(t1);
  16.  
  17. if exp(j*ln(t1))>=a then break;
  18. end;
  19. writeln(t1);
  20. writeln('Case #',i,': ',j);
  21. end;
  22. end.
  23.  
Success #stdin #stdout 0s 5516KB
stdin
4
5 20
10 12
2 100
1000000000000 1000000000000
stdout
 2.0000000000000000E+000
Case #1: 4
 1.2000000000000000E+001
Case #2: 1
 2.0000000000000000E+000
Case #3: 6
 1.0000000000000000E+003
Case #4: 4