#include <bits/stdc++.h>
using namespace std;

using ll = long long;
using ld  = long double;
using pint = pair<int, int>;
using pll = pair<ll, ll>;
using pld = pair<ld, ld>;
const int INF=1e9+7;
const ll LINF=9223372036854775807;
const ll MOD=1e9+7;
const ld PI=acos(-1);
const ld EPS = 1e-10; //微調整用（EPSより小さいと0と判定など）

int ii() { int x; if (scanf("%d", &x)==1) return x; else return 0; }
long long il() { long long x; if (scanf("%lld", &x)==1) return x; else return 0; }
string is() { string x; cin >> x; return x; }
char ic() { char x; cin >> x; return x; }
void oi(int x) { printf("%d ", x); }
void ol(long long x) { printf("%lld ", x); }
void od_nosp(double x) { printf("%.15f", x); } // 古い問題用
void od(double x) { printf("%.15f ", x); }
// long doubleで受け取り、fをLfなどに変えて出力すると、変な数値が出る
// それをなんとかするには独自の出力を作らなければならなそう
void os(const string &s) { printf("%s ", s.c_str()); }
void oc(const char &c) { printf("%c ", c); }
#define o_map(v){cerr << #v << endl; for(const auto& xxx: v){cout << xxx.first << " " << xxx.second << "\n";}} //動作未確認
void br() { putchar('\n'); }

// #define gcd __gcd //llは受け取らない C++17~のgcdと違うので注意
// int lcm(int a, int b){return a / gcd(a, b) * b;}
#define begin_end(a) a.begin(),a.end() //sort(begin_end(vec));
#define REP(i,m,n) for(ll i=(ll)(m) ; i < (ll) (n) ; i++ )
#define rep(i,n) REP(i,0,n)
#define m_p(a,b) make_pair(a,b)
#define SORT_UNIQUE(c) (sort(c.begin(),c.end()), c.resize(distance(c.begin(),unique(c.begin(),c.end()))))
#define GET_POS(c,x) (lower_bound(c.begin(),c.end(),x)-c.begin())
#define p_b push_back
#define SZ(x) ((int)(x).size) //size()がunsignedなのでエラー避けに


// coutによるpairの出力（空白区切り）
template<typename T1, typename T2> ostream& operator<<(ostream& s, const pair<T1, T2>& p) {return s << "(" << p.first << " " << p.second << ")";}
// coutによるvectorの出力（空白区切り）
template<typename T> ostream& operator<<(ostream& s, const vector<T>& v) {
  int len = v.size();
  for (int i = 0; i < len; ++i) {
    s << v[i]; if (i < len - 1) s << " "; //"\t"に変えるとTabで見やすく区切る
  }
  return s;
}
// coutによる多次元vectorの出力（空白区切り）
template<typename T> ostream& operator<<(ostream& s, const vector< vector<T> >& vv) {
  int len = vv.size();
  for (int i = 0; i < len; ++i) {
    s << vv[i] << endl;
  }
  return s;
}

//最大値、最小値の更新。更新したor等しければtrueを返す
template<typename T>
bool chmax(T& a, T b){return (a = max(a, b)) == b;}
template<typename T>
bool chmin(T& a, T b){return (a = min(a, b)) == b;}

//4近傍（上下左右） rep(i, 2) にすると右・下だけに進む
vector<int> dx_4 = {1, 0, -1, 0};
vector<int> dy_4 = {0, 1, 0, -1};

// -------- template end - //


// - library ------------- //

/* 
  強連結成分分解(Strongly Connected Components)
   - 有向グラフ内の各SCCを潰して一かたまりにし、DAGへと変える
  (出典) https://ei1333.github.io/luzhiled/snippets/graph/strongly-connected-components.html
*/

// StronglyConnectedComponents(g):= グラフ g で各メンバ変数を初期化
// build(t):= 強連結成分分解をする。SCCの番号は出来たDAGのトポロジカル順にふられる。 t には出来たDAGのグラフが格納される(多重辺が生えるので注意)。
// [k] := 頂点 k が属するSCC番号（comp[k]）を返す。SCC番号：SCCを潰してできたDAGにおいて各SCCが何番目(0-indexed)のSCCに当たるかを示す
// t := 出来たDAG（各SCCを頂点としたDAG）を表す UnWeightedGraph
//   - t[i] := 番号i の SCC から遷移できるSCC（つまり隣接リスト表現）
// hasUniqueEnd() : 出来たDAGがシングルエンドかマルチエンドかを判定
//   - 元の有向グラフが非連結なら 必ず false を返す

// 元の有向グラフが連結でないときは注意すること。
// 誤動作はしないはずなので問題無いかもしれないが、非連結な部分グラフ間のトポロジカル順序は意味のないものになる

// ＜使い方＞
// UnWeightedGraph g(V);  <-- これに元のグラフを入れる
// UnWeightedGraph SCCed_gs;  <-- build()すると、出来たDAGのグラフになる
//  - SCCed_gs[i] := 出来たDAGにおいてi番目の強連結成分
// StronglyConnectedComponents< UnWeightedGraph > scc(g);
// build(SCCed_gs);

// 重みなしグラフ（隣接リスト表現）
using UnWeightedGraph = vector< vector< ll > >;

template< typename G >
struct StronglyConnectedComponents {
  const G &g; // g : 元のグラフ
  UnWeightedGraph gg; // gg :元のグラフと全く同じコピーを作る。一度呼び出すだけなら恐らく不要だが、main() 内で元のグラフ変数を再利用して変更したりする場合、build() 後に g の中身が変わってしまうことがあり得るため、こうしておいた方が便利なのだと思われる
  UnWeightedGraph rg; // rg : 辺を全て逆向きにしたグラフ
  vector<ll> comp; // SCC番号 0-indexed
  vector<ll> order; // 帰りがけ順に頂点番号を放り込むのに使う
  vector<ll> used; // dfs() で使う

  StronglyConnectedComponents(G &g) : g(g), gg(g.size()), rg(g.size()), comp(g.size(), -1), used(g.size()) {
    for(ll i = 0; i < g.size(); i++) {
      for(auto e : g[i]) {
        gg[i].emplace_back((ll) e);
        rg[(ll) e].emplace_back(i); // 逆辺グラフを作る
      }
    }
  }

  // scc[k] : 頂点k のSCC番号を返す
  ll operator[](ll k) {
    return comp[k];
  }

  // 1度目のDFSに使う 帰りがけ順がどうなるかを求める
  void dfs(ll idx) {
    if(used[idx]) return;
    used[idx] = true;
    for(ll to : gg[idx]) dfs(to);
    order.push_back(idx);
  }

  // 2度目のDFSに使う 帰りがけ順が遅い頂点からDFSして強連結成分分解
  void rdfs(ll idx, ll cnt) {
    if(comp[idx] != -1) return;
    comp[idx] = cnt; // SCC番号を決定
    for(ll to : rg[idx]) rdfs(to, cnt);
  }

  // マルチエンド・シングルエンド判定に使う　※ 自分で作ったので要verify
  // SCC番号最大のSCC(内の頂点)から逆辺グラフを辿って全部usedになればシングルエンド
  void rdfs_hasUniqueEnd(ll idx) {
    if(used[idx]) return;
    used[idx] = true;
    for(ll to : rg[idx]) rdfs_hasUniqueEnd(to);
  }

  // 連結判定に使う　※ 自分で作ったので要verify
  // SCC番号最小のSCC(内の頂点)から元のグラフを辿って全部usedになれば連結
  void dfs_isConnected(ll idx){
    if(used[idx]) return;
    used[idx] = true;
    for(ll to : gg[idx]) dfs_isConnected(to);
  }

  void build(UnWeightedGraph &t) {
    for(ll i = 0; i < gg.size(); i++) dfs(i); // 1度目のDFS
    reverse(begin(order), end(order)); // 帰りがけ順(order)を逆さまに
    ll ptr = 0; // SCC番号
    // 未探索の頂点が現れた = 新しい強連結成分が現れた
    // 0-indexed でSCC番号を入れていく
    for(ll i : order) if(comp[i] == -1) rdfs(i, ptr), ptr++;

    // 受け取った &t に t[SCC番号] := {tから遷移できる次のSCC} を詰めていく
    // つまり、t := 各SCCを頂点としたDAGを表す UnWeightedGraph となる
    t.resize(ptr);
    for(ll i = 0; i < g.size(); i++) {
      // 元のグラフの辺が、異なるSCC上の頂点を繋ぐ辺であれば、DAGの辺とする
      // ここで重複を弾いていないので、多重辺が生える
      for(auto &to : g[i]) {
        ll x = comp[i], y = comp[to];
        if(x == y) continue; // 同じSCC上の辺なら、DAGの辺にはならない
        t[x].push_back(y); // 新しいDAGの辺を入れる
      }
    }
  }

  // 出来上がったDAGをトポロジカルソートした時、最後にくる強連結成分が一意に定まるか
  // つまり、出来上がったDAGがマルチエンドならfalse, シングルエンドならtrueを返す
  // POJ - Popular Cows のために作った
  bool hasUniqueEnd(){
    bool res = true;
    // 逆辺グラフについて、SCC番号が最も大きいSCC内の頂点からDFSしていった時、全ての頂点が探索済みにならないようなら非連結
    used = vector<ll>(gg.size(), false); // usedを再初期化
    // SCC番号が最も大きい頂点を探す
    ll max_sccnum_idx = 0;
    rep(i, gg.size()) if (comp[max_sccnum_idx] < comp[i]) max_sccnum_idx = i;

    rdfs_hasUniqueEnd(max_sccnum_idx);

    // 全ての頂点が探索済みか
    rep(i, gg.size()){
      if (!used[i]){
        res = false;
        break;
      }
    }
    return res;
  }

  // 元のグラフは連結か
  // SCC番号最小のSCC(内の頂点)から元のグラフを辿って全部usedになれば連結
  bool isConnected(){
    bool res = true;
    used = vector<ll>(gg.size(), false); // usedを再初期化
    // SCC番号が最も大きい頂点を探す
    ll min_sccnum_idx = 0;
    rep(i, gg.size()) if (comp[i] == 0) min_sccnum_idx = i;

    dfs_isConnected(min_sccnum_idx);

    // 全ての頂点が探索済みか
    rep(i, gg.size()){
      if (!used[i]){
        res = false;
        break;
      }
    }
    return res;
  }
};


// --------- library end - //


int main(){

  ll N, M;
  cin >> N >> M;

// 使い方
// UnWeightedGraph g(V);  <-- これに元のグラフを入れる
// UnWeightedGraph SCCed_gs;  <-- ここに各SCC毎のグラフが入る
//  - SCCed_gs[i] := 出来上がったDAGにおいてi番目の強連結成分
// StronglyConnectedComponents< UnWeightedGraph > scc(g);
// build(SCCed_gs);

  UnWeightedGraph g(N);
  UnWeightedGraph SCCed_gs;

  rep(i, M){
    ll f, t;
    f = il();
    t = il(); // 0-indexed

    g[f].p_b(t);
  }

  StronglyConnectedComponents<UnWeightedGraph> scc(g);
  scc.build(SCCed_gs); // SCCed_gs に DAGが入った

  ll Q = il();
  rep(i, Q){
    ll u = il();
    ll v = il();
    if (scc[u]==scc[v]) cout << 1 << endl;
    else cout << 0 << endl;
  }


}


Measured memory_bytes: 5296