Cod sursa(job #720659)
Utilizator | Robert Poenaru robertpoe | Data | 22 martie 2012 20:12:40 |
---|---|---|---|
Problema | Kperm | Scor | 100 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.46 kb |
#include<fstream>
using namespace std;
ifstream f("kperm.in");
ofstream g("kperm.out");
long long p,r=1,i,l=1,k,n,rest;
int main()
{
f>>n>>k;
rest=n%k;
p=n/k;
for(i=1;i<=rest;++i)
r=(r*i)%666013;
for(i=1;i<=p+1;i++)
l=(l*i)%666013;
for(i=1;i<=rest;i++)
r=(r*l)%666013;
for(i=1;i<=k-rest;i++)
r=(r*i)%666013;
l=1;
for(i=1;i<=p;i++)
l=(l*i)%666013;
for (i=1;i<=k-rest;i++)
r=(r*l)%666013;
if(k%2==0)
r=0;
g<<r<<'\n';
return 0;
}