Cod sursa(job #29271)

Utilizator razvi9Jurca Razvan razvi9 Data 8 martie 2007 20:40:00
Problema Pascal Scor 20
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=0;i<r/2-(r+1)%2;i++)
 {c=c*(r-i)/(i+1);
  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;}