Cod sursa(job #661603)
Utilizator | Data | 14 ianuarie 2012 19:14:29 | |
---|---|---|---|
Problema | Pascal | Scor | 0 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.37 kb |
#include<fstream>
using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int factorial(int num)
{
if (num==1 or num==0)
return 1;
return factorial(num-1)*num;
}
int main()
{
int nr=0,r,i,x,d,a,b,c;
f>>r>>d;
for(i=0;i<(r/2)+1;i++)
{
a=factorial(r);b=factorial(r-i);c=factorial(i);
x=a/b*c;
if(x%d==0) nr+=2;
}
g<<nr-1;
}