main = do
  fstline <- getLine
  let 
    [n,m,q] = map read $ words fstline :: [Int]
    inputLR i ls = 
      if i > 0 then do
        line <- getLine
        let 
          [l,r] = map read $ words line :: [Int]
          in
            inputLR (i-1) (ls++[(l,r)])
      else 
        inputPQ q ls []
    inputPQ i lr ls = 
      if i > 0 then do
        line <- getLine
        let 
          [p,q] = map read $ words line :: [Int]
          in
            inputPQ (i-1) lr (ls++[(p,q)])
      else
        calc lr ls []
    calc lr pq res
      | pq == []  = output res
      | otherwise = calc lr (tail pq) (res++[(count lr (head pq) 0)])
    count lr pq ret =
      if lr == [] then ret
      else 
        let 
          l = (fst $ head lr)
          r = (snd $ head lr)
          p = fst pq
          q = snd pq
          in
            if p <= l && r <= q then count (tail lr) pq (ret+1)
            else count (tail lr) pq ret
    output res
      | res == [] = putStr ""
      | otherwise = do 
        putStrLn $ show $ head res
        output (tail res)
    in
      inputLR m []
