Cod sursa(job #964871)

Utilizator sddddgjdZloteanu Anastasia sddddgjd Data 22 iunie 2013 15:13:02
Problema Kperm Scor 60
Compilator c Status done
Runda Arhiva de probleme Marime 0.54 kb
#include<stdio.h>
long long v[5001];
int main()
{
    FILE *fin,*fout;
    fin=fopen("kperm.in","r");
    fout=fopen("kperm.out","w");
    int n,k;
    fscanf(fin,"%d%d",&n,&k);
    v[0]=1;
    int i;
    for(i=1;i<=n;i++)
        v[i]=(v[i-1]*i)%666013;
    int x=n%k,nr=0;
    if(k%2!=0)
    {
        nr=(v[x]*v[k-x]);
        nr%=666013;
        for(i=1; i<=x; i++)
            nr=(nr*v[n/k+1])%666013;
        for(i=1; i<=k-x; i++)
            nr=(nr*v[(n/k)])%666013;
    }
    fprintf(fout,"%d",nr);
    return 0;
}