Cod sursa(job #443236)
Utilizator | Data | 16 aprilie 2010 15:33:52 | |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.45 kb |
#include<fstream>
using namespace std;
int i,j,n,d,nr,x,v,h;
long r,a[100000];
long long fact(int n)
{
if(n==0||n==1)
return 1;
else
return n*fact(n-1);
}
int main()
{
ifstream f("pascal.in");
ofstream g("pascal.out");
f>>r>>d;
a[1]=1;
a[r+1]=1;
x=fact(r);
h=fact(1);
for(j=1;j<=r/2;j++)
{
v=fact(r-j);
h=h*j;
a[j]=x/(v*h);
if(a[j]%d==0)
nr++;
}
if(r%2==0)
g<<nr*2-1;
else
g<<nr*2;
return 0;
}