Cod sursa(job #25305)

Utilizator y2kClaudiu Guiman y2k Data 4 martie 2007 11:53:52
Problema Kperm Scor 10
Compilator c Status done
Runda preONI 2007, Runda 3, Clasele 11-12 Marime 0.55 kb
#include<stdio.h>
#define IN_FILE  "kperm.in"
#define OUT_FILE "kperm.out"
int n,k;
long long p,r;
FILE *f1,*f2;
void lucru()
{
 if(n==k)
  {
  r=1;
  return;
  }
 p=n*(n+1)/2;
 if(p%k!=0)
  {
   r=0;
   return;
  }
  if(k==1)
  {
   int u;
   r=1;
   for(u=2; u<=n; u++)
    r=(r*u)%666013;
   return;
  }
}
int main()
{
 f1=fopen(IN_FILE,"r");
 f2=fopen(OUT_FILE,"w");
  fscanf(f1,"%d",&n);
  fscanf(f1,"%d",&k);
  if(k%2==0)
   r=0;
   else
   lucru();
 fprintf(f2,"%d",r);
 fclose(f1);
 fclose(f2);
 return 0;
}