Cod sursa(job #1224144)

Utilizator Narcis_NeculaNecula Narcis Narcis_Necula Data 29 august 2014 21:50:51
Problema Kperm Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.55 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;
    long long 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,"%lld",nr);
         return 0;
}