Cod sursa(job #29275)
| Utilizator |  Jurca 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 |
#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;}