roat1.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 19 行

var n,p,p1,p2:integer;
begin
write('n=');
readln(n);
while n>0 do begin
             p1:=0;
             p2:=1;
             p:=0;
             while p1+p2<=n do begin
                               p:=p1+p2;
                               p1:=p2;
                               p2:=p;
                               end;
             write(p,'+');
             n:=n-p;
             end;
readln;
end.