Cod sursa(job #708053)

Utilizator BeniLehelBeni Lehel BeniLehel Data 6 martie 2012 12:51:47
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 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("%d %d",&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);
}