CODEVS1073 家族 （并查集）

program CODEVS1073;
var i,j,m,n,q,x,y,k1,k2,z:longint;
    f:array[0..10000] of longint;
function find(x:longint):longint;
var fa:longint;
begin
  while f[x]=x do exit(x);
  fa:=find(f[x]);
  f[x]:=fa;
  exit(fa);
end;
begin
  readln(n,m,q);
  for i:=1 to n do f[i]:=i;
  for i:=1 to m do
    begin
      readln(k1,k2);
      x:=find(k1);
      y:=find(k2);
      f[y]:=x;
    end;
  for i:=1 to q do
    begin
      readln(k1,k2);
      x:=find(k1);
      y:=find(k2);
      if f[x]=f[y] then writeln(‘Yes‘) else writeln(‘No‘);
    
    end;
end.