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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/16 13:30:54
请输出斐波拉契(FIBONACCI)数列的前20项请输出斐波拉契(FIBONACCI)数列的前20项请输出斐波拉契(FIBONACCI)数列的前20项vari,j,k,n:integer;begini

请输出斐波拉契(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.