#include <bits/stdc++.h>
#define f first
#define s second
#define pb push_back
#define mp make_pair
#define ll long long
#define ldb long double
#define db double
#define fin(x) freopen(x,"r",stdin)
#define fout(x) freopen(x,"w",stdout)
#define fo(i,l,r) for(int i=(l);i<=(r);i++)
#define foi(i,l,r) for(int i=(l);i>=(r);i--)
#define el cout<<'\n';
#define cel cerr<<'\n';
#define all(x) x.begin(),x.end()
#define ii pair<int,int>
#define iii pair<int,ii>
#define gb(x,i) (((x)>>(i))&1)
#define mask(i) (1LL<<(i))
#define TIME (1.0 * clock()/CLOCKS_PER_SEC)
using namespace std;
const int N=4e5+1;
const int bl=350;
const ll base=1e9+7;
const ll inf=1e9;
mt19937 rng(chrono::steady_clock::now().time_since_epoch().count());
ll Rand(ll l,ll r)
{
return l+(1ll*rng()*rng()%(r-l+1)+(r-l+1))%(r-l+1);
}
template<class X,class Y>bool maximize(X &a,Y b)
{
if(a<b) return a=b,true;
return false;
}
template<class X,class Y>bool minimize(X &a, Y b)
{
if(a>b) return a=b,true;
return false;
}
void add(auto &a,auto b)
{
a+=b;
if(a>=base) a-=base;
if(a<0) a+=base;
}
int n,x,nxt[N][3],q;
int pw[3],pos[N],a[N],l,r,ans;
vector<ll>cc;
void solve()
{
ans=0;
cin>>l>>r,l--;
foi(i,2,0) while(nxt[l][i]<=r) ans+=pw[i],l=nxt[l][i];
cout<<ans,el
}
int main()
{
#define task "o"
if(fopen(task".inp","r"))
{
fin(task".inp");
fout(task".out");
}
srand(time(NULL));
ios_base::sync_with_stdio(0);cin.tie(0);cout.tie(0);
cin>>n;
ll now=0;
fo(i,1,n)
{
cin>>a[i];
now+=a[i],cc.pb(now);
}
cc.pb(0);
sort(all(cc)),cc.erase(unique(all(cc)),cc.end());
now=0;
fo(i,0,n)
{
now+=a[i];
a[i]=lower_bound(all(cc),now)-cc.begin();
}
nxt[n+1][0]=n+1;
foi(i,n,0)
{
if(pos[a[i]]) nxt[i][0]=min(nxt[i+1][0],pos[a[i]]);
else nxt[i][0]=nxt[i+1][0];
pos[a[i]]=i;
}
pw[0]=1;
fo(i,1,2) pw[i]=pw[i-1]*47;
fo(x,1,2) fo(i,0,n)
{
int pos=nxt[i][x-1];
fo(c,1,46) if(pos<=n) pos=nxt[pos][x-1];
nxt[i][x]=pos;
}
cin>>q;
while(q--) solve();
cerr<<"Time elapsed: "<<TIME<<" s.\n";
}
