#include <cassert>
#include <cmath>
#include <cstdint>
#include <cstdio>
#include <cstdlib>
#include <cstring>
#include <algorithm>
#include <bitset>
#include <complex>
#include <deque>
#include <functional>
#include <iostream>
#include <limits>
#include <map>
#include <numeric>
#include <queue>
#include <random>
#include <set>
#include <sstream>
#include <string>
#include <unordered_map>
#include <unordered_set>
#include <utility>
#include <vector>

using namespace std;

using Int = long long;

template <class T1, class T2> ostream &operator<<(ostream &os, const pair<T1, T2> &a) { return os << "(" << a.first << ", " << a.second << ")"; };
template <class T> ostream &operator<<(ostream &os, const vector<T> &as) { const int sz = as.size(); os << "["; for (int i = 0; i < sz; ++i) { if (i >= 256) { os << ", ..."; break; } if (i > 0) { os << ", "; } os << as[i]; } return os << "]"; }
template <class T> void pv(T a, T b) { for (T i = a; i != b; ++i) cerr << *i << " "; cerr << endl; }
template <class T> bool chmin(T &t, const T &f) { if (t > f) { t = f; return true; } return false; }
template <class T> bool chmax(T &t, const T &f) { if (t < f) { t = f; return true; } return false; }
#define COLOR(s) ("\x1b[" s "m")


// |as| = n ==> |rs| = 2 n + 1
// [i - rs[i], i + rs[i]] is palindrome for $ as[0] $ as[1] $ ... $ as[n-1] $
// as[i, j): palindrome <=> j - i <= rs[i + j]
template <class String> vector<int> manacher(const String &as) {
  const int n = as.size();
  vector<int> rs(2 * n + 1);
  for (int i = 0, j = 0, k; i <= 2 * n; i += k, j -= k) {
    for (; 0 < i - j && i + j < 2 * n &&
           (!((i + j + 1) & 1) || as[(i - j - 1) >> 1] == as[(i + j + 1) >> 1]);
         ++j) {}
    rs[i] = j;
    for (k = 1; k < j && k + rs[i - k] < j; ++k) rs[i + k] = rs[i - k];
  }
  return rs;
}


char buf[500'010];

int T, N, Q;
vector<string> S;
vector<int> I, J;


namespace brute {
vector<int> run() {
cerr<<"[brute::run]"<<endl;
  vector<vector<int>> rss(N + 1);
  for (int i = 1; i <= N; ++i) {
    rss[i] = manacher(S[i]);
// cerr<<S[i]<<": "<<rss[i]<<endl;
  }
  vector<vector<int>> f(N + 1, vector<int>(N + 1, 0));
  for (int i = 1; i <= N; ++i) for (int j = 1; j <= N; ++j) {
    const int lenI = S[i].size();
    const int lenJ = S[j].size();
    for (int l = 0; l <= lenJ - lenI; ++l) {
      bool ok = true;
      for (int x = 0; x <= 2 * lenI; ++x) {
        ok = ok && (rss[i][x] == min({rss[j][2 * l + x], x, 2 * lenI - x}));
      }
      if (ok) {
        ++f[i][j];
      }
    }
  }
  vector<int> ans(Q, 0);
  for (int q = 0; q < Q; ++q) {
    ans[q] = f[I[q]][J[q]];
  }
  return ans;
}
}  // brute


namespace sub2 {
vector<int> run() {
cerr<<"[sub2::run]"<<endl;
  vector<pair<vector<int>, int>> ps(N + 1);
  for (int i = 1; i <= N; ++i) {
    ps[i] = make_pair(manacher(S[i]), i);
  }
  sort(ps.begin() + 1, ps.end());
  int id = 0;
  vector<int> ids(N + 1, -1);
  for (int i = 1, j = 1; i <= N; i = j) {
    for (; j <= N && ps[i].first == ps[j].first; ++j) {
      ids[ps[j].second] = id;
    }
    ++id;
  }
  vector<int> ans(Q, 0);
  for (int q = 0; q < Q; ++q) {
    ans[q] = (ids[I[q]] == ids[J[q]]) ? 1 : 0;
  }
  return ans;
}
}  // sub2


namespace slow {
int solve(const string &s, const string &t) {
  const int sLen = s.size();
  const int tLen = t.size();
  const auto rsS = manacher(s);
  const auto rsT = manacher(t);
  vector<int> leftLensS(sLen + 1, 0);
  vector<int> leftLensT(tLen + 1, 0);
  for (int i = 0; i <= 2 * sLen; ++i) chmax(leftLensS[(i + rsS[i]) / 2], rsS[i]);
  for (int i = sLen; --i >= 0; ) chmax(leftLensS[i], leftLensS[i + 1] - 2);
  for (int i = 0; i <= 2 * tLen; ++i) chmax(leftLensT[(i + rsT[i]) / 2], rsT[i]);
  for (int i = tLen; --i >= 0; ) chmax(leftLensT[i], leftLensT[i + 1] - 2);
// cerr<<s<<" "<<rsS<<" "<<leftLensS<<endl;
// cerr<<t<<" "<<rsT<<" "<<leftLensT<<endl;
  vector<int> fail(sLen + 1, 0);
  {
    int j = 0, c = 0;
    for (int i = 2; i <= sLen; ++i) {
      for (; ; j = fail[j]) {
        chmax(c, 2 * i - j);
        for (; c + rsS[c - 1] < 2 * i; ++c) {}
        if (leftLensS[j + 1] == 2 * i - c + 1) break;
      }
      fail[i] = ++j;
    }
  }
// cerr<<"fail = "<<fail<<endl;
  int ma = 0;
  {
    int j = 0, c = 0;
    for (int i = 1; i <= tLen; ++i) {
      for (; ; j = fail[j]) {
        chmax(c, 2 * i - j);
        for (; c + rsT[c - 1] < 2 * i; ++c) {}
        if (leftLensS[j + 1] == 2 * i - c + 1) break;
      }
      if (++j == sLen) {
// cerr<<"match ["<<i-sLen<<", "<<i<<")"<<endl;
        ++ma;
        j = fail[j];
      }
    }
  }
  return ma;
}
vector<int> run() {
cerr<<"[slow::run]"<<endl;
  vector<int> ans(Q);
  for (int q = 0; q < Q; ++q) {
    ans[q] = solve(S[I[q]], S[J[q]]);
  }
  return ans;
}
}  // slow


int main() {
  for (; ~scanf("%d%d%d", &T, &N, &Q); ) {
    assert(T == 0);
    S.resize(N + 1);
    for (int i = 1; i <= N; ++i) {
      scanf("%s", buf);
      S[i] = buf;
    }
    S[0] = "";
    I.resize(Q);
    J.resize(Q);
    for (int q = 0; q < Q; ++q) {
      scanf("%d%d", &I[q], &J[q]);
    }
    
    bool spe2 = true;
    for (int i = 1; i <= N; ++i) {
      spe2 = spe2 && (S[1].size() == S[i].size());
    }
    
    vector<int> ans;
    if (spe2) {
      ans = sub2::run();
    } else {
      ans = slow::run();
    }
    for (int q = 0; q < Q; ++q) {
      printf("%d\n", ans[q]);
    }
  }
  return 0;
}