Cod sursa(job #275090)
| Utilizator | 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;
}