一道pascal题目2.Faibonacci数列前几项为:0,1,1,2,3,5,8,…,其规律是从第三项起,每项均等于

学习时间:2026-08-14 07:09:49 阅读：4442

一道pascal题目2.Faibonacci数列前几项为:0,1,1,2,3,5,8,…,其规律是从第三项起,每项均等于前两项之和.求前30项,并以每行5个数的格式输出.最好用while循环来实现

虚心的路灯

2026-08-14 07:09:49



program d55;vara,b,c,i,n:longint;beginreadln(n);a:=1;b:=1;for i:=3 to n dobeginc:=a+b;a:=b;b:=c;end;if (n=1) or (n=2) then c:=1;writeln(c);end。