Cod sursa(job #741775)

Utilizator geniucosOncescu Costin geniucos Data 26 aprilie 2012 22:26:35
Problema Kperm Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include<cstdio>
using namespace std;
long long 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;
for(i=1;i<=c+1;i++)
	p=(p*i)%666013;
for(i=1;i<=k-r;i++)
	p=(p*i)%666013;
for(i=1;i<=c;i++)
	p=(p*i)%666013;
printf("%lld\n",p);
return 0;
}