var k,v,n,i,j,f,r,a1,b1,m:longint;
s:array [1..10000] of integer;
a,b:array [1..5000,1..5000] of 0..1;
f1:boolean;

begin
readln(m,n,j);
f:=0;
r:=1;
s[r]:=i;
fillchar(a,sizeof(a),0);
for i:=1 to n do
begin
readln(a1,b1);
a[a1,b1]:=1;
a[b1,a1]:=1;
end;
b:=a;
for k:=1 to j do
begin
f:=0;
r:=1;
a:=b;
f1:=false;
readln(s[r],v);
while f<r do
begin
f:=f+1;
for i:=1 to n do
if a[s[f],i]=1 then
begin
r:=r+1;
s[r]:=i;
a[s[f],s[r]]:=0;
if s[r]=v then
begin
writeln('Yes');
f1:=true;
break;
end;
end;
if s[r]=v then break;
end;
if not f1 then writeln('No');
end;
end.