import Control.Monad
import Data.List
import qualified Data.ByteString.Char8 as B
import qualified Data.IntMap.Strict as M

main=do
  (n:m:q:_)<-map read.words<$>getLine::IO[Int]
  lrs<-replicateM m $ unfoldr(B.readInt.B.dropWhile(==' '))<$>B.getLine::IO[[Int]]
  pqs<-replicateM q $ unfoldr(B.readInt.B.dropWhile(==' '))<$>B.getLine::IO[[Int]]
  --
  putStr.unlines $map (show.f lrs) pqs

f lrs (p:q:_) = length $ filter (g p q) lrs

g p q (l:r:_) = p<=l && r<= q