program Untitled;
var
   n, k, i, j, a, po, kr, q : longint;
   isp, niz : array [ 0..1000000 ] of longint;
begin
     readln ( n, k );
     for i := 1 to k do
     begin
          read ( a );
          j := 0;
          while ( j < n ) do
          begin
               niz[j] := niz[j] + 1;
               j := j + a;
          end;
     end;
     readln;
     readln ( q );
     for i := 1 to q do
     begin
          readln ( po, kr );
          for j := po to kr do
              isp[i] := isp[i] + niz[j];
     end;
     for i := 1 to q do
         writeln ( isp[i] );
readln;
end.