Cod sursa(job #30989)

Utilizator PetruRaresPetru Rares PetruRares Data 15 martie 2007 13:13:53
Problema Divk Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
#include<fstream.h>
int v[10000],i,j,n,a,b,T,s,p,k;
int bun(int i)
{
int t;
t=1;s=0;p=0;
for(j=i;j>=1;j--)
	{s=s+v[j];
	 p++;
	 if(p<a||p>b||s%k!=0)
		t=0;
	 else
		T++;  }
return t;
}
void main()
{
ifstream f("divk.in");
ofstream g("divk.out");
f>>n>>k>>a>>b;
for(i=1;i<=n;i++)
	f>>v[i];
for(i=1;i<=n;i++)
	bun(i);
		
g<<T;
}