Viết chương trình Pascal:
Cho hai số A và B(A>0,B>0), hãy đếm xem có bao nhiêu số Fn thuộc dãy Fibonacci thỏa mãn điều kiện A<=Fn<=B
Ví dụ:
Input : Nhập A=4, B=10.
Output: Có 2 số Fibonacci từ A-B
( vì giữa 4 và 10 số Fibonacci là 3,5 nên đếm=2 )
Viết chương trình Pascal:
Cho hai số A và B(A>0,B>0), hãy đếm xem có bao nhiêu số Fn thuộc dãy Fibonacci thỏa mãn điều kiện A<=Fn<=B
Ví dụ:
Input : Nhập A=4, B=10.
Output: Có 2 số Fibonacci từ A-B
( vì giữa 4 và 10 số Fibonacci là 3,5 nên đếm=2 )
uses crt;
var a,b,i,d:longint;
(**************************************************)
function fibo(x:longint):boolean;
var b:array[1..1000] of longint;
k:longint;
begin
b[1]:=1;b[2]:=1;k:=2;
repeat
k:=k+1;
b[k]:=b[k-1]+b[k-2];
until (b[k]>x) or (b[k]=x);
if b[k]=x then exit(true);
exit(false);
end;
(******************************************************)
begin
clrscr;
readln(a,b);
d:=0;
for i:=a to b do if fibo(i) then d:=d+1;
write(d);
readln
end.