Pagini recente » Cod sursa (job #1845700) | Cod sursa (job #2869474) | Cod sursa (job #2157517) | Cod sursa (job #1922204) | Cod sursa (job #443052)
Cod sursa(job #443052)
#include<fstream>
using namespace std;
int a[100][100],n,i,j,nr;
int b[1000];
int d,r;
long fact(long m)
{
if(m==0||m==1)
return 1;
else
return m*fact(m-1);
}
int ndiv(int m)
{
long n=fact(m);
int fm,i=2;
int nr=1;
do
{
fm=0;
while(n%i==0)
{
fm++;
n=n/i;
nr=nr*(fm+1);
}
i++;
}while(n!=1);
return nr;
}
int main()
{
ifstream f("pascal.in");
ofstream g("pascal.out");
f>>d>>r;
for(i=1;i<=d;i++)
{
b[i]=ndiv(d)/(ndiv(i)*ndiv(d-i));
if(b[i]%r==0)
nr++;
}
g<<nr;
return 0;
}