2013-09-08 09:56

记录数组w[I],代表第I个答案的值

用三个指针指向W数组，代表当前的W[A2]*2，W[A3]*3，W[A5]*5更新答案

每次取最小值，然后后移对应指针（可能一次移两个指针），可保证W数组的数不重复且递增

vara2, a3, a5              :longint;    w                       :array[0..1600] of int64;    i                       :longint;function min(a,b:int64):int64;begin    if a>b then min:=b else min:=a;end;begin    a2:=1; a3:=1; a5:=1;//指针    w[1]:=1;    for i:=2 to 1500 do    begin        w[i]:=min(w[a2]*2,min(w[a3]*3,w[a5]*5));//更新答案（递推）        if w[i]=w[a2]*2 then inc(a2);//移指针        if w[i]=w[a3]*3 then inc(a3);        if w[i]=w[a5]*5 then inc(a5);    end;    read(i);    while i<>0 do    begin        if i<>0 then writeln(w[i]);        read(i);     end;end.