Program ex;
Var
  ss:Array[1..10000] Of LongInt;
  a, tt, sss, s, s1, s2, s3:Longint;
  b, t, i, j:Integer;
Begin
  Readln(a,b);
  Repeat
    Fillchar(ss, sizeof(ss), 0);
    If b = 1 Then Writeln(a) Else Begin
      If b = 2 Then Begin
        s:=trunc(sqrt(a));
        s1:=(s-1)*(s-1);
        s2:=s*s;
        s3:=(s+1)*(s+1);
        If a-s1>abs(s2-a) Then Begin sss:=s; tt:=abs(s2-a); End Else Begin sss:=s-1; tt:=a-s1; End;
        If s3-a<tt Then Begin tt:=s3-a; sss:=s+1; End;
        Writeln(sss);
      End Else Begin
        i:=0;
        Repeat
          Inc(i);
          s:=1;
          For j:=1 to b Do s := s * i;
          ss[i]:=s;
        Until s >= a;
        If ss[i] + ss[i - 1] > 2 * a Then Writeln(i - 1) Else Writeln(i);
      End;
    End;
    Readln(a,b);
  Until (a = 0) And (b = 0);
End.

• Re:RT.........(pascal) 求原因 以及改进方法 (931) xiaobai1 2008-02-11 15:18:15