Cod sursa(job #442865)

Utilizator valentina506Moraru Valentina valentina506 Data 15 aprilie 2010 16:13:21
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include<fstream>
using namespace std;
int n,i,j,nr,r,d,a[100];
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");
	f>>r>>d;
	for(i=0;i<=r;i++)
	{
		n=fact(r)/(fact(r-i)*fact(i));
				if(n%d==0)
				nr++;
	}
				g<<nr;
	return 0;
}