Cod sursa(job #897491)

Utilizator Mstar_AngelComan Mara Stefania Mstar_Angel Data 27 februarie 2013 20:57:57
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 kb
#include<stdio.h>
int main (){
  FILE *in,*out;
  in  = fopen ("pascal.in","r");
  out =  fopen ("pascal.out","w");

  int r,d,i,cate,nr,nr2,jf,rf;
  fscanf (in,"%d%d",&r,&d);
  rf = 1;
  for (i=2;i<=r;i++)
    rf *= i;
  jf = 1;
  nr2 = rf;
  cate = 0;
  for (i=1;i<r;i++){
    nr2 = nr2 / (r-i+1);
    jf *= i;
    if (i == 0)
      jf = 1;

    nr = rf /(nr2 * jf);
    if (nr%d ==0)
      cate ++;
  }
  fprintf (out,"%d",cate);
  fclose(in);
  fclose (out);
  return 0;
}