Cod sursa(job #1956131)

Utilizator cris90robert@yahoo.comseretan cristian [email protected] Data 6 aprilie 2017 15:20:59
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.41 kb
#include<iostream>
#include<fstream>
using namespace std;
long long fact(long long n)
{
	if(n==0)
	{
		return 1;
	}
	else
	{
		return fact(n-1)*n;
	}
}
int main()
{
	long long d,j,nr=0,r;
	
	fstream f("pascal.in",ios::in);
	f>>r>>d;
	f.close();
	for(j=0;j<=r/2;j++)
	{
		if(fact(r)/(fact(r-j)*fact(j))%d==0)
		{
			nr++;
		}
	}
	fstream g("pascal.out",ios::out);
	g<<nr;
	g.close();
}