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

学习时间:2026-05-30 13:51:07 阅读：4652

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

耍酷的小蚂蚁

2026-05-30 13:51:07



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。