Cod sursa(job #443264)

Utilizator robertpoeRobert Poenaru robertpoe Data 16 aprilie 2010 16:21:47
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include<fstream>
using namespace std;
long 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");
	 long a[10000],i,j,r;
	 int d;
	 int nr;
	 f>>r>>d;
	 for(i=0;i<=r;i++)
	 {
		 j=fact(r)/(fact(r-i)*fact(i));
		 if(j%d==0)
			 nr++;
	 }
	 g<<nr;
	 
	 return 0;
}