Cod sursa(job #1191245)

Utilizator EpictetStamatin Cristian Epictet Data 26 mai 2014 20:50:16
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include <fstream>
using namespace std;
ifstream fin("pascal.in");
ofstream fout("pascal.out");
int r, d, sol;

int factorial(int n)
{
	int f = 1;
	for(int i=2; i<=n; i++)
	{
		f *= i;
	}
	return f;
}

int main()
{
	fin >> r >> d;
	int fact_R = factorial(r);
	for(int i=1; i<=r-1; i++)
	{
		int deimp = fact_R / factorial(r-i) * factorial(i);
		if(deimp % d == 0) sol++;
	}
	
	fout << sol << '\n';
	fout.close();
	return 0;
}