Cod sursa(job #204109)

Utilizator AndreiDDiaconeasa Andrei AndreiD Data 21 august 2008 21:23:29
Problema Kperm Scor 90
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.56 kb
#include <stdio.h>
#include <stdlib.h>

#define FIN "kperm.in"
#define FOUT "kperm.out"

#define N_MAX 5010
#define MOD 666013

long long fact[N_MAX];
int i,j,k,r,N,K,sum;
long long sol;

int main()
{
freopen(FIN,"rt",stdin);
scanf("%d %d", &N, &K);
fact[0]=1;
for (i=1;i<=N;++i)
    fact[i]=(fact[i-1]*i)%MOD;
    r=N%K;
sum=(K*(K-1))/2;
sol=fact[r]%MOD;
for (i=1;i<=r;++i)
    sol=(sol*fact[(N/K)+1])%MOD;
sol=(sol*fact[K-r])%MOD;
for (i=r+1;i<=K;++i)
    sol=(sol*fact[N/K])%MOD;
freopen(FOUT,"wt",stdout);
printf("%d\n",  sol);
return 0;
}