Dãy số FIBONACCI là một dãy số có dạng: 1,1,2,3,5,8,13,21,34,…
Số hạng thứ nhất và thứ hai của dãy bằng 1. Giá trị các số hạng từ 3 trở đi được tinh bằng tổng 2 số liền trước nó.
Lập chương trình tìm các số FIBONACCI trong khoảng m,n nhập từ bàn phím.
program fibo;
uses crt;
var m,n,i1,i2,in,d:integer;
begin
clrscr;
write(‘Nhap m: ‘); readln(m);
write(‘Nhap n: ‘); readln(n);
write(‘Cac so fibonacci tu ‘,m,’ den ‘,n,’ la: ‘);
i1:=1; i2:=1; d:=0;
while i2<n do
begin
fn:=f2;
f2:=f2+f1;
f1:=fn;
if (f2>=m) and (f2<=n) then
begin
d:=d+1;
write(f2,’ ‘);
end;
end;
if d=0 then write(‘Khong co nha.’);
readln;
end.