Cod sursa(job #275084)

Utilizator 630r63Ilinca George Mihai 630r63 Data 10 martie 2009 10:44:32
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include<fstream>
using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int factorial(int m)
{
	int i,p=1;
	for(i=1;i<=m;i++) p*=i;
	return p;
}
int main()
{
	long r;
	int d,c=0,i;
	f>>r>>d;
	for(i=0;i<=r;i++) if(!(factorial(r)/(factorial(r-i)*factorial(i))%d)) c++;
	g<<c;
	f.close();
	g.close();
	return 0;
}