Cod sursa(job #443052)

Utilizator suzanicaSuzanica Mihu suzanica Data 15 aprilie 2010 22:19:39
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.55 kb
#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;
}