KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
FUNCTION FIBO(n:integer):boolean; Var f1, f2, f:integer; Begin F1:=0; F2:=1; F:=f1+f2; While f<n do Begin F1:=f2; F2:=f; F:=f1+f2; End; If f=n then FIBO:=true Else FIBO:=false; End;
Dãy Fibonacci là dãy vô hạn các số tự nhiên bắt đầu bằng 1 và 1, sau đó các số tiếp theo sẽ bằng tổng của 2 số liền trước nó
VD: Số 3
FUNCTION FIBO(n:integer):boolean;
Var f1, f2, f:integer;
Begin
F1:=0;
F2:=1;
F:=f1+f2;
While f<n do
Begin
F1:=f2;
F2:=f;
F:=f1+f2;
End;
If f=n then FIBO:=true
Else
FIBO:=false;
End;
kha@# chúc bn hc tốt # god