#include <bits/stdc++.h>
//#include <boost/multiprecision/cpp_int.hpp>
using namespace std;

/***** type *****/
using ll = long long;
using ld = long double;
template <class T> using vt = vector<T>;
template <class T> using vvt = vector<vector<T>>;
template <class T> using vvvt = vector<vector<vector<T>>>;
template <class T1, class T2> using umap = unordered_map<T1, T2>;
//using ml = boost::multiprecision::cpp_int;

/***** define *****/
#define all(c) (c).begin(), (c).end()            // begin to end
#define rep(i, b, e) for (ll i = b; i < e; i++)  // repeat
#define repr(i, b, e) for (ll i = b; e < i; i--) // repeat reverse
#define val(itr) *(itr)                          // get value
#define f first                                  // pair first
#define s second                                 // pair second
/***** const value *****/
#define llong_max 9223372036854775807            // 9 * 10^18
#define ldbl_max 1.79769e+308                    // 1.7 * 10^308
#define pi 3.1415926535897932                    // 3.14 ...
/***** for each macro *****/
#define fori(i, ...) if(ll i = -1) for(__VA_ARGS__) if(i++, true)
#define each(i, e, c) fori(i, auto e = c.begin(); e != c.end(); ++e)
#define forir(i, v, ...) if(ll i=(ll)v.size())for(__VA_ARGS__)if(i--,true)
#define eachr(i, e, c) forir(i, auto e = c.rbegin(); e != c.rend(); ++e)

/***** lambda *****/
auto Count = [] // long long count value
(auto b, auto e, auto x) { return (ll)count(b, e, x); };
auto CtoN = [] // char to number
(auto c) { return (ll)(c - '0'); };
auto DivC = [] // long double div ceiling
(auto a, auto b) { return ceil((ld)a / (ld)b); };
auto Fix = [] // fix value
(auto b, auto e, auto fix)
{ for (auto it = b; it != e; ++it)*it += fix; };
auto Pow = [] // long long pow
(auto a, auto b) { return (ll)pow(a, b); };
auto Pow2 = [] // long long pow2
(auto n) { return (1LL << n); };
auto Pow10 = [] // long long pow10
(auto n) { return (ll)pow(10, n); };
auto Size = []  // long long collection size
(auto& c) { return (ll)(c).size(); };
auto Sum = [] // long long accumulate
(auto b, auto e) { return accumulate(b, e, 0LL); };

/***** template *****/
template <class T> void MakeVVT
(ll ys, ll xs, vvt<T>& v, T fill = T())
{	// vector<vector<T>> resize + fill
	v.resize(ys); rep(y, 0, ys) v[y].resize(xs, fill);
}
template <class T> void MakeVVVT
(ll zs, ll ys, ll xs, vvvt<T>& v, T fill = T())
{	// vector<vector<vector<T>>> resize + fill
	v.resize(zs); rep(z, 0, zs) MakeVVT(ys, xs, v[z], fill);
}
template <class T> void InputVT
(ll xs, vt<T>& v, T fix = T())
{	// input vector<T> (T != struct) + fix
	v.resize(xs); rep(i, 0, xs) { cin >> v[i]; v[i] += fix; }
}
template <class T> void InputVVT
(ll ys, ll xs, vvt<T>& v, T fix = T())
{	// input vector<vector<T>> (T != struct) + fix
	MakeVVT(ys, xs, v, fix);
	rep(y, 0, ys) rep(x, 0, xs) { cin >> v[y][x]; v[y][x] += fix; }
}
template <class T> void InputVVVT
(ll zs, ll ys, ll xs, vvvt<T>& v, T fix = T())
{	// input vector<vector<vector<T>>> (T != struct) + fix
	v.resize(zs); rep(z, 0, zs) InputVVT(ys, xs, v[z], fix);
}

/**************************************/
/********** BEGIN OF NYA LIB **********/
/**************************************/

namespace NyaGadget {}

namespace NyaGadget
{
	/*** UnionFindライブラリ ***/

	struct UnionFindVertex
	{	// 頂点を表現する構造体
		long long self = 0; // 自分自身のインデックス
		long long root = 0; // 根のインデックス
		long long size = 0; // 自分が属している木のサイズ
	};

	struct UnionFind
	{
		vector<UnionFindVertex> v;

		/**
		@brief コンストラクタ
		@param max 頂点数
		@note
		 [0-max)の素集合データ構造を作成する
		**/
		UnionFind(long long max)
		{	// [0-max]のデータ構造にするため、max+1でリサイズ
			v.resize(max);
			for (long long i = 0; i < max; i++)
			{	// 各頂点の根を自分自身で初期化、木サイズは1
				v[i].self = i;
				v[i].root = i;
				v[i].size = 1;
			}
		}

		/**
		@brief 根を検索する関数
		@param i 根を検索する頂点インデックス
		@note
		 引数で指定された頂点の根を返す。
		**/
		long long Find(long long i)
		{
			if (i == v[i].root) return i;

			// 根の探索をすると同時に次からO(1)で根を参照できるようにする(経路圧縮)
			v[i].root = Find(v[i].root);
			return v[i].root;
		}

		/**
		@brief 頂点を併合する関数
		@param i1 併合する頂点1
		@param i2 併合する頂点2
		@note
		 頂点i1を含む木と頂点i2を含む木を「サイズ優先で」併合する。
		 ただし、i1とi2が既に同じ木に属しているときは何もしない。
		 併合したときtrue、何もしなかったときfalseを返す。
		 サイズによる工夫により、計算量はアッカーマンの逆関数になる。
		**/
		bool Union(long long i1, long long i2)
		{
			long long root1 = Find(i1);
			long long root2 = Find(i2);

			// 既に同じ木に属しているときは何もしない
			if (root1 == root2) return false;

			// サイズの小さい木の根をサイズの大きい木の根に繋いで併合する
			if (v[root1].size < v[root2].size)
			{
				v[root1].root = root2;
				v[root2].size += v[root1].size;
			}
			else
			{
				v[root2].root = root1;
				v[root1].size += v[root2].size;
			}
			return true;
		}

		/**
		@brief 頂点を併合する関数
		@param i1 併合する頂点1
		@param i2 併合する頂点2
		@param p  親指定
		@note
		 頂点i1を含む木と頂点i2を含む木を「pを含む木を親として」併合する。
		 ただし、i1とi2が既に同じ木に属しているときは何もしない。
		 併合したときtrue、何もしなかったときfalseを返す。
		 計算量はO(logN)になり、アッカーマンの逆関数に比べて若干遅くなる。
		**/
		bool Union(long long i1, long long i2, long long p)
		{
			long long root1 = Find(i1);
			long long root2 = Find(i2);
			long long rootp = Find(p);

			// 既に同じ木に属しているときは何もしない
			if (root1 == rootp && root2 == rootp) return false;

			// 子の木を親の木へ併合する
			if (rootp == root1)
			{
				v[root2].root = rootp;
				v[rootp].size += v[root2].size;
			}
			else if (rootp == root2)
			{
				v[root1].root = rootp;
				v[rootp].size += v[root1].size;
			}
			else
			{
				v[root1].root = rootp;
				v[rootp].size += v[root1].size;
				v[root2].root = rootp;
				v[rootp].size += v[root2].size;
			}
			return true;
		}
	};
}

namespace NyaGadget
{
	/*** 強連結成分分解ライブラリ ***/

	struct StronglyConnectedComponents
	{
		vector<bool> visited;         // DFSするときに訪れた頂点かどうか
		vector<long long> vs;         // トポロジカルに並べ直した頂点集合
		vector<vector<long long>> g;  // グラフ
		vector<vector<long long>> rg; // 辺を逆向きにしたグラフ
		// その他の変数
		// vector<T> vdata;
		// vector<unordered_map<long long, T>> edata;

		/**
		@brief 強連結成分分解の実行
		@param vmax グラフ頂点数
		@param res 強連結成分分解した頂点集合
		**/
		void Run(long long vmax, vector<vector<long long>>& res)
		{
			visited.clear();
			visited.resize((long long)g.size(), false);
			vs.clear();
			vs.resize((long long)g.size());
			rg.clear();
			rg.resize((long long)g.size());
			for (long long from = 0; from < (long long)g.size(); from++)
			{
				for (long long to = 0; to < (long long)g[from].size(); to++)
					rg[g[from][to]].push_back(from);
			}

			for (long long v = 0; v < vmax; v++)
			{
				if (!visited[v]) DFS(-1, v);
			}

			visited.clear();
			visited.resize((long long)g.size(), false);
			for (long long i = (long long)vs.size() - 1; 0 <= i; i--)
			{
				if (!visited[vs[i]])
				{
					res.resize((long long)res.size() + 1);
					RDFS(-1, vs[i], res);
				}
			}
		}

		/**
		@brief DFS処理関数
		@param r 頂点vの根
		@param v 現在の頂点
		**/
		void DFS(long long r, long long v)
		{
			{	// 頂点の更新処理
				visited[v] = true;
			}
			for (auto e : g[v])
			{	// 後戻りしないようにする
				if (e == r) continue;
				if (!visited[e]) DFS(v, e);
			}
			vs.push_back(v);
		}

		/**
		@brief 逆順DFS処理関数
		@param r 頂点vの根
		@param v 現在の頂点
		@param res 強連結成分分解した頂点集合
		**/
		void RDFS(long long r, long long v, vector<vector<long long>>& res)
		{
			{	// 頂点の更新処理
				visited[v] = true;
				res.back().push_back(v);
			}
			for (auto e : rg[v])
			{	// 後戻りしないようにする
				if (e == r) continue;
				if (!visited[e]) RDFS(v, e, res);
			}
		}
	};
}

/**************************************/
/*********** END OF NYA LIB ***********/
/**************************************/

using namespace NyaGadget;
//using mll = ModLL< 1000000007 >;

int main(void)
{
	ll vsize; cin >> vsize;
	ll esize; cin >> esize;
	StronglyConnectedComponents scc;
	scc.g.resize(vsize);

	rep(i, 0, esize)
	{
		ll s, t; cin >> s >> t;
		scc.g[s].push_back(t);
	}
	vvt<ll> res;
	scc.Run(vsize, res);

	UnionFind uf(vsize + 1);
	rep(i, 0, Size(res)) rep(j, 1, Size(res[i])) uf.Union(res[i][0], res[i][j]);

	ll qsize; cin >> qsize;
	rep(i, 0, qsize)
	{
		ll u, v; cin >> u >> v;
		if (uf.Find(u) == uf.Find(v)) cout << 1 << endl;
		else cout << 0 << endl;
	}
	return 0;
}


Measured memory_bytes: 5008