不是VIP会员,不能显示答案

题目解答

题目:
已知faibonacci数列的前几个数分别为0,1,1,2,3,5,8,……,编程输出此数列的前n(n>=2)项。(每行输出五项,每项场宽为6)。
输入样例: 10
输出样例:
0 1 1 2 3
5 8 13 21 34
Var  n,p1,p2,t,f:integer;
Begin
  Readln(n);
  P1:=0; p2:=1; t:=2;
  Write(0:6,1:6);
  While    t<>n     do
   Begin
     If    t mod 5=0    then writeln;
           f:=p1+p2;      
Write( f:6 );
    inc(t)       
p1:=p2; 
     p2:=f     ;
   End;
 End.
考点:
分析:
解答:
评论:
老师: