Cod sursa(job #1288789)

Utilizator Mihai_BogdanDumitru Mihai Mihai_Bogdan Data 9 decembrie 2014 06:04:26
Problema Kperm Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.62 kb
#include <fstream>
using namespace std;
int main ()
{

    long long n,k,rez,p,i,r,l=1;
    ifstream f("kperm.in") ;
    ofstream g("kperm.out") ;
    f>>n>>k ;
    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++)
    l=(l*i)%666013 ;

    for (i=1;i<=r;i++)
    rez=(rez*l)%666013 ;

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

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

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

    g<<rez<<'\n';
    f.close();
    g.close();
     return 0;
     }