Cod sursa(job #443236)

Utilizator iulishorIulian Popescu iulishor Data 16 aprilie 2010 15:33:52
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#include<fstream>
using namespace std;
int i,j,n,d,nr,x,v,h;
long r,a[100000];
long long fact(int n)
{
	if(n==0||n==1)
		return 1;
	else 
		return n*fact(n-1);
}
int main()
{
	ifstream f("pascal.in");
	ofstream g("pascal.out");
	f>>r>>d;
	a[1]=1;
	a[r+1]=1;
	x=fact(r);
	h=fact(1);
	for(j=1;j<=r/2;j++)
	{
		v=fact(r-j);
		h=h*j;
		a[j]=x/(v*h);
		if(a[j]%d==0)
			nr++;
	}
	if(r%2==0)
		g<<nr*2-1;
	else
		g<<nr*2;
    return 0;
}