Question

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.

Answer 1

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.