Cod sursa(job #443237)
Utilizator | Moraru Valentina valentina506 | Data | 16 aprilie 2010 15:37:07 |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.38 kb |
#include<fstream>
using namespace std;
long n,i,j,nr,r,d,a[100];
long fact(long 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;
for(i=0;i<=r/2;i++)
{
n=fact(r)/(fact(abs(r-i))*fact(i));
if(n%d==0)
nr++;
}
if(r%2==0)
g<<nr*2-1;
else
g<<nr*2;
return 0;
}