Cod sursa(job #489112)

Utilizator cosmyoPaunel Cosmin cosmyo Data 1 octombrie 2010 01:29:39
Problema Kperm Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.58 kb
#include<fstream>
using namespace std;
long long n,k,rez,p;
int main()
{ifstream fin("kperm.in");
 ofstream fout("kperm.out");

  fin>>n>>k;
  long long f=1,i,r=n%k;
  p=n/k;
  rez=1;
   for(i=1;i<=r;++i)
    rez=(rez*i)%666013;

   for(i=1;i<=p+1;++i)
    f=(f*i)%666013;

   for(i=1;i<=r;++i)
    rez=(rez*f)%666013;
   for(i=1;i<=k-r;++i)
    rez=(rez*i)%666013;

   f=1;
    for(i=1;i<=p;++i)
     f=(f*i)%666013;

    for(i=1;i<=k-r;++i)
     rez=(rez*f)%666013;

   if(k%2==0)
     rez=0;

   fout<<rez<<'\n';
 fout.close();
 fin.close();
return 0;
}