program aa;
var
q,a,b,c,d,e,i,j,m,n,sum:longint;
f:array[0..1000000]of integer;
t:array[1..5000,1..4]of integer;
max:int64;
f1,f2:text;
//*********************************************
//*********************************************
begin
 assign(f1,'infinit.in');
 assign(f2,'infinit.out');
 reset(f1);
 rewrite(f2);
 readln(f1,q);
 max:=0;
 for i:=1 to q do
 begin
  readln(f1,t[i,1],t[i,2]);
  if t[i,2]>max then max:=t[i,2];
 end;
 f[0]:=1;
 f[1]:=1;
 j:=1;
 for i:=2 to max-2 do
  f[i]:=f[i-2]+f[i-1];
 for i:=1 to max do
 for j:=1 to q do
  if t[j,1]=f[i] then t[j,3]:=i
  else
  if t[j,2]=f[i] then t[j,4]:=i;
 j:=1;
 for i:=1 to q do
   writeln(f2,f[t[i,4]-1]-f[t[j,3]-1]);
 close(f1);close(f2);
end.