Cod sursa(job #2334339)
Utilizator | Data | 2 februarie 2019 15:25:23 | |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | cpp-64 | Status | done |
Runda | Arhiva de probleme | Marime | 0.49 kb |
#include <fstream>
using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int p=1,r,d,p1=1,p2=1,i,j,x,z=0;
int main()
{
f>>r>>d;
for(i=1;i<=r;i++)
p=p*i;
for(j=1;j<=r+1;j++)
{
p1=1;
p2=1;
for(i=1;i<=r-j;i++)
p1=p1*i;
for(i=1;i<=j;i++)
p2=p2*i;
x=p2*p1;
x=p/x;
if(x%d==0)
z++;
}
if(d>1)
g<<z-1;
else
g<<z;
return 0;
}