Cod sursa(job #443252)

Utilizator valentina506Moraru Valentina valentina506 Data 16 aprilie 2010 16:06:22
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.44 kb
#include<fstream>
using namespace std;
long n,i,j,nr,r,d,fr,fc,fi;
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>>r>>d;
	fr=fact(r);
	fc=1;
	fi=fr;
	for(i=0;i<=r/2;i++)
	{
		
		fi=fi/(r-i-1);
		n=fr/fi*fc;
				if(n%d==0)
				nr++;
				fc=fc*(i+1);
				
	}
	if(r%2==0)
		g<<nr*2-1;
	else
	g<<nr*2;
	return 0;
}