Cod sursa(job #782058)

Utilizator MtkMarianHagrSnaf MtkMarian Data 25 august 2012 18:50:27
Problema Kperm Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.66 kb
#include<cstdio>
#include<cmath>
using namespace std;

long long factorial(int n)
{
  return (n == 1 || n == 0) ? 1 : factorial(n - 1) * n;
}
int main()
{
	freopen("kperm.in","r",stdin);
	freopen("kperm.out","w",stdout);
	int n,k,c,r,d;
	long long rez=1,x,x1;

	scanf("%d %d",&n,&k);
	
	if(n%2==0)printf("0");
	else
	{
		c=n/k;
		r=n%k;		
		d=k-r;

		rez=(factorial(r)%666013);
		rez*=(factorial(d)%666013);

		x1=x=factorial(c+1);
		
		for(int i=1;i<r;++i)
			x1=(x1*x)%666013;
		rez=(rez*x1)%666013;

		x1=x=factorial(c);	
		for(int i=1;i<d;++i)
			x1=(x1*x)%666013;
		rez=(rez*x1)%666013;
		printf("%lld",rez);
	}
	return 0;
}