Cod sursa(job #2254579)
Utilizator | Data | 5 octombrie 2018 16:34:02 | |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.5 kb |
#include <fstream>
using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int pascal(int r,int d)
{
long long nr=0,x=1,y=1,z=1;
for (int i=1;i<=r;i++)
x=x*i;
for (int i=1;i<r;i++)
{
for (int j=1;j<=i;j++)
y=y*j;
for (int j=1;j<=r-i;j++)
z=z*j;
int n=x/(y*z);
if (n%d==0) nr++;
y=z=1;
}
return nr;
}
int main()
{
int d,r;
f>>r>>d;
g<<pascal(r,d);
return 0;
}