Cod sursa(job #68680)

Utilizator sealTudose Vlad seal Data 29 iunie 2007 01:50:25
Problema Kperm Scor 90
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.6 kb
#include<stdio.h>
#define Nm 5001
#define Mod 666013
int n,k,sol;

void read()
{
    freopen("kperm.in","r",stdin);
    scanf("%d%d",&n,&k);
}

void solve()
{
    int F[Nm],i,a,b;

    F[0]=1;
    for(i=1;i<=n;++i)
        F[i]=F[i-1]*(long long)i%Mod;
    a=n%k; b=k-a;
    sol=(long long)F[a]*F[b]%Mod;
    for(i=0;i<a;++i)
        sol=(long long)sol*F[n/k+1]%Mod;
    for(i=0;i<b;++i)
        sol=(long long)sol*F[n/k]%Mod;
}

void write()
{
    freopen("kperm.out","w",stdout);
    printf("%d\n",sol);
}

int main()
{
    read();
    solve();
    write();
    return 0;
}