Cod sursa(job #29275)

Utilizator razvi9Jurca Razvan razvi9 Data 8 martie 2007 20:42:23
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
#include<stdio.h>
#include<math.h>
long r,d,c=1,nr,i;
int main()
{freopen("pascal.in","r",stdin);
 freopen("pascal.out","w",stdout);
 scanf("%ld %ld",&r,&d);
 for(i=1;i<=(r+1)/2;i++)
 {c=c*(r-i+1)/i;
  if(c%d==0) nr+=2;}
 if(r%2==0) {c=c*(r-i)/(i+1);if(c%d==0)nr++;}
 printf("%ld",nr);
 fclose(stdout);
 return 0;}