Cod sursa(job #1956126)
Utilizator | Data | 6 aprilie 2017 15:17:41 | |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.39 kb |
#include<iostream>
#include<fstream>
using namespace std;
long fact(long n)
{
if(n==0)
{
return 1;
}
else
{
return fact(n-1)*n;
}
}
int main()
{
long d,j,nr=0,r;
fstream f("pascal.in",ios::in);
f>>r>>d;
f.close();
for(j=0;j<=r;j++)
{
if(fact(r)/(fact(r-j)*fact(j))%d==0)
{
nr++;
}
}
fstream g("pascal.out",ios::out);
g<<nr;
g.close();
}