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