求菲波拉契数列a0,a1,a2,.a20.a0=0,a1=1,a2=a1+a0,a3=a2+a1,...,an=an-1+an-2

Question

求菲波拉契数列a0,a1,a2,.a20.a0=0,a1=1,a2=a1+a0,a3=a2+a1,...,an=an-1+an-2

Answer 1

3.PROGRAM fibo(input,output);
VAR
a0,a1,a2,i:integer;
BEGIN
a0:=0;
a1:=1;
writeln;
write(' ',a0,' ',a1);
FOR i:=2 TO 20 DO
BEGIN
a2:=a0+a1;
write(' ',a2);
a0:=a1;
a1:=a2;
END
END.