Cod sursa(job #442862)
Utilizator | 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;
}