Cod sursa(job #275090)

Utilizator 630r63Ilinca George Mihai 630r63 Data 10 martie 2009 10:49:39
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 kb
#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;
	if(r%2) for(i=0;i+i-1<=r;i++) if(!(factorial(r)/(factorial(r-i)*factorial(i))%d)) if(i=r/2+1) c+=1; else c+=2; 
	else for(i=0;i+i<=r;i++) if(!(factorial(r)/(factorial(r-i)*factorial(i))%d)) c+=2; 
	g<<c;
	f.close();
	g.close();
	return 0;
}