Cod sursa(job #443900)

Utilizator eudanipEugenie Daniel Posdarascu eudanip Data 18 aprilie 2010 20:21:58
Problema Kperm Scor 80
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.65 kb
#include<stdio.h>
#define MOD 666013

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);
    c=n/k;
    r=n%k;
    ras=1;
    for(i=2;i<=r;i++)
    {
        ras*=i;
        ras%=MOD;
    }
    for(i=2;i<=k-r;i++)
    {
        ras*=i;
        ras%=MOD;
    }
    for(i=2;i<=c+1;i++)
        for(j=1;j<=r;j++)
        {
            ras*=i;
            ras%=MOD;
        }
    for(i=2;i<=c;i++)
        for(j=1;j<=k-r;j++)
        {
            ras*=i;
            ras%=MOD;
        }
    printf("%d\n",ras);
    return 0;
}