Cod sursa(job #73620)

Utilizator Data 19 iulie 2007 20:11:54
Problema Kperm Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 1.29 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");

int n,k,r,c;
int sol;

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