Cod sursa(job #68709)

Utilizator info_arrandrei gigea info_arr Data 29 iunie 2007 11:30:15
Problema Kperm Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 1.07 kb
using namespace std;

#define MOD 666013
#define ll long long

#include <stdio.h>

FILE *fin=fopen("kperm.in","r"),
     *fout=fopen("kperm.out","w");

ll n,k,r,c,sol;

int main()
{
  fscanf(fin,"%lld %lld",&n,&k);
  if (k%2==0)
   {
      fprintf(fout,"0\n");
      return 0;
   }
  else 
   {
      int i;
      ll fact=1; sol=1;
      c=n/k; r=n%k;
      for (i=2; i<=r; i++)
       fact=(long long)(fact*i)%MOD;
      sol=(long long)(sol*fact)%MOD;
      fact=1;
      for (i=2; i<=k-r; i++)
       fact=(long long)(fact*i)%MOD;
      sol=(long long)(sol*fact)%MOD;
      fact=1;
      for (i=2; i<=c+1; i++)
       fact=(long long)(fact*i)%MOD;
      ll p=fact; 
      for (i=2; i<=r; i++)  
       fact=(long long)(fact*p)%MOD;
      sol=(long long)(sol*fact)%MOD;
      fact=1; 
      for (i=1; i<=c; i++)
       fact=(long long)(fact*i)%MOD;
      p=fact; 
      for (i=1; i<=k-r; i++)
       fact=(long long)(fact*p)%MOD;
      sol=(long long)(sol*fact)%MOD;   
      fprintf(fout,"%lld\n",sol);
    }
return 0;
}