Cod sursa(job #2334339)

Utilizator sfdfsdfsdDobrin Alin sfdfsdfsd 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;
}