Cod sursa(job #31570)

Utilizator bmanBalauta Bogdan bman Data 16 martie 2007 11:36:38
Problema Divk Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 kb
#include<fstream.h>

int main()
{	long n,a,s,x[15000],sf,S,b,k,i,j;
	int g=0;
	ifstream in("divk.in");
	in>>n>>k>>a>>b;
	cout<<n<<k<<a<<b;
	for(i=1;i<=n;i++)
		in>>x[i];
	in.close();
	for(S=a;S<=b;S++)
		for(i=1;i<=n-S+1;i++)
		{	sf=i+S-1;
			s=0;
			for(j=i;j<=sf;j++)
				s=s+x[j];
			if(s%k==0)
				g++;
		}
	ofstream out("divk.out");
	out<<g;
	out.close();
	return 0;
}