program fasd;
var
  num:longint;
  i,j,k,l:longint;
  min:longint;
begin
  readln(num);
  while num>0 do
  begin
    min:=maxlongint;
    for i:=0 to trunc(exp(ln(10*num)/3)) do
    begin
      k:=trunc(i*(i+1)*(i+2)/6);
      if k<=num then begin
        if k=num then begin
          min:=0;
        end
        else begin
          j:=trunc(exp(ln(num-k)/3));
          l:=num-k-j*j*j;
          if l<min then min:=l;
        end;
      end;
    end;
    writeln(num-min);
    readln(num);
  end;
end.

• Re:哪位高手帮我看看程序吧 (6) richardhuang 2004-05-28 20:15:28