Question

Dãy Fibonacy 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 chương trình in ra dãy Fibonacy có phần tử lớn nhất nhỏ hơn n?

Answer 1

Program Fi_Bo_na_xi;

 

Var n, F_2,F_1, F: Longint;

Begin

Write(‘Nhap n: ‘);Readln(n);

F_1:=1; F_2:=1;

Write(F_2,’;’,F_1,’;’);

Repeat

F:=F_2+F_1;

if F< n then Write(F,’;’);

F_2:=F_1; F_1:=F;

Until F>n;

Readln;

End.