对给定模数分解质因数后约分即可。依然常数巨大过不了。
#include<iostream>
#include<cstdio>
#include<cmath>
#include<cstdlib>
#include<cstring>
#include<algorithm>
using namespace std;
#define ll long long
#define N 10010
char getc(){char c=getchar();while ((c<'A'||c>'Z')&&(c<'a'||c>'z')&&(c<''||c>'')) c=getchar();return c;}
ll gcd(ll n,ll m){return m==?n:gcd(m,n%m);}
ll read()
{
ll x=,f=;char c=getchar();
while (c<''||c>'') {if (c=='-') f=-;c=getchar();}
while (c>=''&&c<='') x=(x<<)+(x<<)+(c^),c=getchar();
return x*f;
}
int n,m,q,cnt,p[],prime[],tot[],t;
ll g[],a[][N],b[N],c[N],d[N];
bool flag[];
ll ksc(ll a,ll b,ll p)
{
ll t=a*b-(ll)((long double)a*b/p+0.5)*p;
return t<?t+p:t;
}
ll ksm(ll a,ll k,ll p)
{
ll s=;
for (;k;k>>=,a=ksc(a,a,p)) if (k&) s=ksc(s,a,p);
return s;
}
void exgcd(ll &x,ll &y,ll a,ll b)
{
if (b==)
{
x=,y=;
return;
}
exgcd(x,y,b,a%b);
ll t=x;x=y;y=t-a/b*x;
}
ll inv(ll a,ll p)
{
ll x,y;exgcd(x,y,a,p);
x=(x%p+p)%p;
return x;
}
bool check(int k,ll n)
{
if (ksm(k,n-,n)!=) return ;
ll p=n-;
while (!(p&))
{
p>>=;ll x=ksm(k,p,n);
if (x==n-) return ;
if (x!=) return ;
}
return ;
}
bool Miller_Rabin(ll n)
{
if (n<=) return !flag[n];
return check(,n)&&check(,n)&&check(,n)&&check(,n)&&check(,n)&&check(,n);
}
ll f(ll x,ll p,int c){return (ksc(x,x,p)+c)%p;}
void getfactor(ll n)
{
if (n<=)
{
while (n>) g[++cnt]=p[n],n/=p[n];
return;
}
if (Miller_Rabin(n)) {g[++cnt]=n;return;}
while ()
{
int c=rand()%(n-)+;
ll x=rand()%n,y=x;
do
{
ll z=gcd(abs(x-y),n);
if (z>&&z<n) {getfactor(z),getfactor(n/z);return;}
x=f(x,n,c),y=f(f(y,n,c),n,c);
}while (x!=y);
}
}
int main()
{
#ifndef ONLINE_JUDGE
freopen("bzoj4891.in","r",stdin);
freopen("bzoj4891.out","w",stdout);
const char LL[]="%I64d\n";
#else
const char LL[]="%lld\n";
#endif
n=read(),m=read(),q=read();
flag[]=;
for (int i=;i<=;i++)
{
if (!flag[i]) prime[++t]=i,p[i]=i;
for (int j=;j<=t&&prime[j]*i<=;j++)
{
flag[prime[j]*i]=;
p[prime[j]*i]=prime[j];
if (i%prime[j]==) break;
}
}
for (int i=;i<=m;i++) b[i]=read();
for (int i=;i<=n;i++)
for (int j=;j<=m;j++)
a[i][j]=read();
while (q--)
{
int x=read();ll y=read(),ans=;cnt=;getfactor(y);
sort(g+,g+cnt+);cnt=unique(g+,g+cnt+)-g-;memset(tot,,sizeof(tot));
memcpy(c,b,sizeof(c));memcpy(d,a[x],sizeof(d));
for (int i=;i<=m;i++)
{
for (int j=;j<=cnt;j++)
while (c[i]%g[j]==) tot[j]++,c[i]/=g[j];
for (int j=;j<=cnt;j++)
while (d[i]%g[j]==) tot[j]--,d[i]/=g[j];
ans=ksc(ksc(ans,c[i],y),inv(d[i],y),y);
}
for (int i=;i<=cnt;i++)
if (tot[i]<) {ans=-;break;}
else ans=ksc(ans,ksm(g[i],tot[i],y),y);
cout<<ans<<endl;
}
return ;
}