Cod sursa(job #837467)

Utilizator stirbucatalinstirbu catalin stirbucatalin Data 18 decembrie 2012 00:42:51
Problema Kperm Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.54 kb
#include<cstdio>
using namespace std;
long long l,p,i,n,k,r,c;
int main()
{
freopen("kperm.in","r",stdin);
freopen("kperm.out","w",stdout);
scanf("%lld",&n);
scanf("%lld",&k);
if(k%2==0)
{
    printf("0\n")
    return 0;
}
c=n/k;
r=n%k;
p=1;
for(i=1;i<=r;i++)
    p=(p*i)%666013;
l=1;
for(i=1;i<=c+1;i++)
    l=(l*i)%666013;
for(i=1;i<=r;i++)
    p=(p*l)%666013;
for(i=1;i<=k-r;i++)
    p=(p*i)%666013;
l=1;
for(i=1;i<=c;i++)
    l=(l*i)%666013;
for(i=1;i<=k-r;i++)
    p=(p*l)%666013;
printf("%lld\n",p);
return 0;
}