Cod sursa(job #1125766)
| Utilizator | Data | 26 februarie 2014 19:21:25 | |
|---|---|---|---|
| Problema | Pascal | Scor | 10 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.55 kb |
#include <iostream>
#include <fstream>
using namespace std;
int fact(int a)
{
int sum=1;
if(a==0 || a==1)
return 1;
else
for(int b=1; b<=a; b++)
sum=sum*b;
return sum;
}
int main()
{
ifstream fin("pascal.in");
ofstream fout("pascal.out");
int n;
int D;
int nr=0;
int a[5000];
fin>>n;
fin>>D;
if(D<2 || D>6)
{
fout<<0;
return 0;
}
for(int j=0; j<=n; j++)
a[j]=fact(n)/(fact(n-j)*fact(j));
for(int i=0; i<=n/2; i++)
{
if(a[i]%D==0)
nr++;
}
fout<<nr*2;
//system("pause");
return 0;
}