Cod sursa(job #442862)

Utilizator lily3Moldovan Liliana lily3 Data 15 aprilie 2010 16:06:29
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.41 kb
#include<fstream>
using namespace std;
int a[100][100];
int i,j,n,m,r,d,nr;
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>>n>>d;
	for(i=0;i<=n+1;i++)
		for(j=0;j<=i;j++)
			a[i][j]=fact(i)/(fact(i-j)*fact(j));
			for(j=0;j<=n;j++)
				if(a[n][j]%d==0)
					nr++;
				g<<nr;
	return 0;
}