Cod sursa(job #1255708)

Utilizator TarabanDragosTaraban Dragos-Petru TarabanDragos Data 5 noiembrie 2014 02:37:39
Problema Kperm Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.55 kb
#include<cstdio>
#define mod 666013;
long long n,k,i,j,v[5010],s;
FILE *f,*g;
int main(){
    f=fopen("kperm.in","r");
    g=fopen("kperm.out","w");
    fscanf(f,"%lld%lld",&n,&k);
    v[0]=1;
    for(i=1;i<=n;i++){
        v[i]=(v[i-1]*i)%mod;
    }
    if(k%2==0){
        fprintf(g,"0");
        return 0;
    }
    s=(v[n%k]*v[k-(n%k)])%mod;
    for(i=1;i<=n%k;i++){
        s=(s*v[n/k+1])%mod;
    }
    for(i=n%k+1;i<=k;i++){
        s=(s*v[n/k])%mod;
    }
    fprintf(g,"%lld",s);


    fclose(f);
    fclose(g);
    return 0;
}