Cod sursa(job #2033771)
| Utilizator | 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;
}
