Cod sursa(job #561325)

Utilizator swim406Teudan Adina swim406 Data 19 martie 2011 19:49:03
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
#include<fstream>
using namespace std;
int fact (int x)
{
	int i,fact=1;
	for (i=1;i<=x;i++)
		fact=fact*i;
	return fact;
}
int main()
{
	int r,d,nr=0,j;
	ifstream f ("pascal.in");
	ofstream g("pascal.out");
	f>>r>>d;
	for (j=0;j<=r-1;j++)
		if (fact(r)/(fact(r-j)*fact(j))%d==0)
			nr++;
	g<<nr;
	return 0;
	f.close();
	g.close();
}