Cod sursa(job #443239)

Utilizator lily3Moldovan Liliana lily3 Data 16 aprilie 2010 15:42:22
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.5 kb
#include<fstream>
using namespace std;

long i,j,m,nr,nr1;
int d,n;

long fact(long 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>>n>>d;
	if(n%2==0)
	{
	for(i=0;i<n/2;i++)
	{
			m=fact(n)/(fact(n-i)*fact(i));
			if(m%d==0)
				nr++;
	}
			g<<nr*2+1;
	}
	else
	{
		i=0;
		while(i<=n/2)
		{
			m=fact(n)/(fact(n-i)*fact(i));
			if(m%d==0)
				nr++;
			i++;
		}
		g<<nr*2;
	}
	return 0;
}