Cod sursa(job #720659)

Utilizator robertpoeRobert 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;
}