Cod sursa(job #443269)

Utilizator thesilverhand13FII Florea Toma Eduard thesilverhand13 Data 16 aprilie 2010 16:34:29
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include<fstream>
using namespace std;
int fact(int n)
{
      if(n==0||n==1)
     return 1;
     else
     return n*fact(n-1);
}
long i,r,d,a[100][100],j,n,m,l,nr;
int main()
{
      ifstream f("pascal.in");
	  ofstream g("pascal.out");
	  f>>n>>d;
	  for(i=0;i<=n/2;i++)
	  {
		     l=fact(n)/(fact(n-i)*fact(i));
			 //g<<l<<"\n";
	         if(l%d==0)
		     nr++;
	 }
	 
	 g<<nr;
	 return 0;
}