Cod sursa(job #222549)

Utilizator ciorile.chioareBogatu Adrian ciorile.chioare Data 23 noiembrie 2008 13:29:46
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.44 kb
#include<stdio.h>

int count;

int factorial(int a)
{
	int x=1;
	if(a==0)
		return 1;
	for(int i=1;i<=a;i++)
	{
		x=x*i;
	}
	return x;
}

int main()
{
	int i,x,r,d;
	int t;
	
	freopen("pascal.in","r",stdin);
	freopen("pascal.out","w",stdout);
	
	scanf("%d%d",&r,&d);
	
	t=factorial(r);
	for(i=1;i<r;i++)
	{
		x=factorial(r-i)*factorial(i);
		if( (t/x)%d==0 )
			count++;
	}
	
	printf("%d",count);
	
	return 0;
}