请输出斐波拉契(FIBONACCI)数列的前20项

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 11:35:42
请输出斐波拉契(FIBONACCI)数列的前20项

请输出斐波拉契(FIBONACCI)数列的前20项
请输出斐波拉契(FIBONACCI)数列的前20项

请输出斐波拉契(FIBONACCI)数列的前20项
var
i,j,k,n:integer;
begin
i:=1;
j:=1;
write(i,',',j);
n:=2;
repeat
k:=i+j;
i:=j;
j:=k;
write(',',j);
inc(n);
until n=20;
end.