Cod sursa(job #2033771)

Utilizator aditoma2001Toma Adrian aditoma2001 Data 7 octombrie 2017 10:32:26
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.54 kb
#include <bits/stdc++.h>

using namespace std;
typedef unsigned long long ull ;
ifstream f("pascal.in");
ofstream g("pascal.out");

ull fact(ull n,ull k)
{
    ull prod=1,prodk=1;
    for (ull i=n-k+1;i<=n;++i)
    {
        prod*=i;
    }
    for (int j=1;j<=k;++j) prodk*=j;
    return prod/prodk;
}

int main()
{
    ull r,d,s=0;
    f>>r>>d;
    for (ull i=1;i<=r/2+r%2;++i)
    {
        if (fact(r,i)%d==0)
        {
            if (i!=r/2+s%2)s+=2;
            else s++;
        }
    }
    g<<s;
    return 0;
}