let split str delim =
  let rec doit s acc =
    match
      try Some (String.rindex s delim) with _ -> None
    with
    | None -> s :: acc
    | Some i ->
        let s1 = String.sub s 0 i in
        let s2 = String.sub s (i + 1) (String.length s - String.length s1 - 1) in
        doit s1 (s2 :: acc)
  in
  doit str []

let f () = List.map int_of_string (split (read_line ()) ' ')

let dfs g n =
  let v = Array.make n (-1) in
  let rec dudu j = function
    | [] -> ()
    | hd :: tl when v.(hd) = (-1) -> (wa hd j; dudu j tl)
    | _ :: tl -> dudu j tl
  and wa i j = v.(i) <- j; dudu j g.(i)
  and doit i =
    if i < n then (if v.(i) = (-1) then wa i i; doit (i + 1))
  in
  doit 0;
  v

let () =
  match f () with
  | [n;m] -> begin
      let g = Array.make n [] in
      let rec read i =
        if i < m then
          match f () with
          | [s;t] -> begin
              g.(s) <- t :: g.(s);
              g.(t) <- s :: g.(t);
              read (i + 1)
            end
          | _ -> exit 1
      in
      read 0;
      let v = dfs g n in
      let q = read_int () in
      let rec read_q i =
        if i < q then begin
          match f () with
          | [s;t] -> begin
              print_endline (if v.(s) = v.(t) then "yes" else "no");
              read_q (i + 1)
            end
          | _ -> exit 1
        end
      in
      read_q 0
    end
  | _ -> exit 1