Cod sursa(job #444095)

Utilizator eudanipEugenie Daniel Posdarascu eudanip Data 19 aprilie 2010 13:30:56
Problema Kperm Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.64 kb
#include<stdio.h>
#define MOD 666013
#define ll long long

int n,k,ras,c,r;

int main ()
{
    int i,j;
    freopen("kperm.in","r",stdin);
    freopen("kperm.out","w",stdout);
    scanf("%d%d",&n,&k);
    if(k%2==0)
    {
        printf("0\n");
        return 0;
    }
    c=n/k;
    r=n%k;
    ras=1;
    for(i=2;i<=r;i++)
        ras=((ll)ras*i)%MOD;
    for(i=2;i<=k-r;i++)
        ras=((ll)ras*i)%MOD;
    for(i=2;i<=c+1;i++)
        for(j=1;j<=r;j++)
            ras=((ll)ras*i)%MOD;
    for(i=2;i<=c;i++)
        for(j=1;j<=k-r;j++)
            ras=((ll)ras*i)%MOD;
    printf("%d\n",ras);
    return 0;
}