Cod sursa(job #708055)

Utilizator BeniLehelBeni Lehel BeniLehel Data 6 martie 2012 12:53:26
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.41 kb
#include<stdio.h>
#include<math.h>
long long n,d,nr=0;
long o=1;
int main()
{
	freopen("pascal.in","r",stdin);
	freopen("pascal.out","w",stdout);
	
	scanf("%lld %lld",&n,&d);
	
	
	for(long long i=1;i<n/2;i++)
	{
		o=1;
		for(long long j=1;j<=i;j++)
			o*=(n-i+j)/j;
		if(o%d==0)
			nr++;
	}
	o=1;nr*=2;
		for(long long j=1;j<=n/2;j++)
			o*=(n-n/2+j)/j;
	if(o%d==0)
			nr++;
	printf("%lld",nr);
}