{-# LANGUAGE BangPatterns #-}

import           Control.Monad
import qualified Data.IntMap   as M

main :: IO ()
main = do
  [n, m, k] <- readInts
  lrs <- replicateM m readInts
  pqs <- replicateM k readInts
  let !lmp = mkMap 1 [ l | [l, _] <- lrs ]
  let !rmp = mkMap 1 [ r | [_, r] <- lrs ]
  forM_ pqs (print . solve m lmp rmp)

readInts :: IO [Int]
readInts = map read . words <$> getLine

mkMap :: Int -> [Int] -> M.IntMap Int
mkMap i []     = M.empty
mkMap i (x:xs) = M.insert i x $ mkMap (i + 1) xs

solve :: Int -> M.IntMap Int -> M.IntMap Int -> [Int] -> Int
solve m lmp rmp [p, q] = length [ i | i <- [1..m], lmp M.! i >= p, rmp M.! i <= q ]
