Cod sursa(job #661603)

Utilizator raazvvannheghedus razvan raazvvann Data 14 ianuarie 2012 19:14:29
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.37 kb
#include<fstream>

using namespace std;

ifstream f("pascal.in");
ofstream g("pascal.out");

int factorial(int num)
{
 if (num==1 or num==0)
  return 1;
 return factorial(num-1)*num;
}
int main()
{
	int nr=0,r,i,x,d,a,b,c;
	f>>r>>d;
	for(i=0;i<(r/2)+1;i++)
	{
		a=factorial(r);b=factorial(r-i);c=factorial(i);
		x=a/b*c;
		if(x%d==0) nr+=2; 
	}
	g<<nr-1;
}