Dãy fibonacci có hai phần tử đầu là 1,1. Các phần tử sau bằng tổng hai phần tử đứng ngay trước nó: 1,1,2,3,5

Câu 7: Dãy fibonacci có hai phần tử đầu là 1,1. Các phần tử sau bằng tổng hai phần tử đứng ngay trước nó: 1,1,2,3,5,8,13,21,... Viết phương trình in ra dãy fibonacci có phần tử lớn nhất nhỏ hơn n

Trả lời

var i,n,j : integer;
a : array [1..1000] of integer;
begin
writeln('nhap n: ');
readln(n);
a[1]:=1; a[2]:=1; i:=2;
while a[i]
begin
 inc(i);
 a[i]:=a[i-1]+a[i-2];
end;
for j:=1 to i-1 do write(a[j],' ');
        readln;
end.