PASCAL程序 第3个开始每个数是前2个数的和

来源：百度知道 编辑：UC知道 时间：2024/05/18 02:14:52
1
1
2
3
5
8
........

像这样的

var a1,a2:longint;
i,n:integer;
begin a0:=0;
a1:=1;
read(n);
for i:=2 to n do
begin a2:=a0+a1;{第2个数=第0个数+第一个数}
a0:=a1;{把a1的值赋值于a0}
a1:=a2;{把a2的值赋值于a1}
{符合第n个数等于前两数的和}
end;
write(a1);
end.

M:= 1;
N:= 1;
K:= 0;
while N<100 do
begin
Println(M);
Println(N);
K:= M;
M:= N;
N:= N+K;
end;

输出我不太记得了，大体就这样吧