Pagini recente » Istoria paginii runda/2067/clasament | Cod sursa (job #2609465) | Istoria paginii runda/eusebiu_oji_2007_cls9/clasament | Cod sursa (job #3031455) | Cod sursa (job #443244)
Cod sursa(job #443244)
#include<fstream>
using namespace std;
long n,i,j,nr,r,d,fr,fc;
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;
fr=fact(r);
fc=1;
for(i=0;i<=r/2;i++)
{
n=fr/(fact(abs(r-i))*fc);
if(n%d==0)
nr++;
fc=fc*(i+1);
}
if(r%2==0)
g<<nr*2-1;
else
g<<nr*2;
return 0;
}