PersonalCorpus 版 (精华区)

153675 06:58:32 4 Mar 2002
Bozhang,HIT,P.R.China 1079 Pascal Accepted 0.02 sec 848K


var
    a,b:array[0..100000] of integer;
    i,j:integer;
begin
    a[0]:=0; a[1]:=1; i:=2;
    while i<>100000 do begin
        a[i]:=a[i div 2]; inc(i);
        j:=i div 2;a[i]:=a[j]+a[j+1]; inc(i);
    end;
    j:=0;
    for i:=0 to 99999 do begin
        if j<a[i] then j:=a[i];
        b[i]:=j;
    end;
    readln(i);
    while i<>0 do begin writeln(b[i]); readln(i) end;
end.