program ty;
var
n,k,q,a,b:1..200000;
l,m:array[1..200000]of longint;
i,j,op:longint;
procedure init;
begin
assign(input,'coffee.in');
assign(output,'coffee.out');
reset(input);
rewrite(output);
readln(n,k,q);
for i:=1 to n do
        begin
                readln(a,b);
                if(a<b)then begin
                for j:=a to b do begin
                l[j]:=l[j]+1;
                end;//for
                end;//i
        end;
end;
begin//main
init;
op:=1;
for i:=1 to q do
        begin//for1
        readln(a,b);
        if(a<b)then
                begin//if
                for j:=a to b do
                begin//for2
                if(l[j]>=k)then m[op]:=m[op]+1;
                end;//for2
                end;//if
        op:=op+1;
        end;//for1;
for i:=1 to op-1 do
begin
        writeln(m[i]);
        end;
close(input);
close(output)
end.