Cod sursa(job #856861)
| Utilizator | Data | 17 ianuarie 2013 00:12:56 | |
|---|---|---|---|
| Problema | Pascal | Scor | 0 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.63 kb |
#include<fstream>
using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int n,i,j,r,a[2000000],d,s;
int fact(int p)
{
if(p==1)
return 1;
return p*fact(p-1);
}
int main()
{
f>>r;
f>>d;
n=fact(r);
s=0;
for(i=0;i<=r/2;i++)
{
j= fact(r-i);
j= j*fact(i);
a[i]= n/j;
if( a[i] % d == 0) s++;
}
s=s*2;
if(r%2==0) s--;
g<<s;
return 0;
}
