số cặp thỏ tính theo từng tháng sẽ tạo thành dãy Fibonacci: 1,1,2,3,5,8,13,21,...
trong đó các số hạng, từ số hạng thứ 3 trở đi, bằng tổng của hai số hạng đứng trước nó.
Hãy viết chương trình
+ Nhập từ bàn phím số nguyên dương n
+In ra giá trị của số hạng tứ n của dãy Fibonacci.
var n,a,b,c,i:longint;
begin
write('Nhap n:');readln(n);
a:=1; b:=1;
for i:=3 to n do
begin
c:=a+b;
a:=b;
b:=c;
end;
if (n=1) or (n=2) then c:=1;
write('So fibonacci thu',n,'la:',c);
readln
end.