Cod sursa(job #442424)
Utilizator | Data | 14 aprilie 2010 15:12:38 | |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.41 kb |
#include <iostream>
unsigned long long fakt(unsigned int x) {
unsigned int i;
unsigned long long o;
o=1;
for (i=x;i>=1;i--) o*=i;
return o;
}
int main(void) {
freopen("pascal.in","r",stdin);
freopen("pascal.out","w",stdout);
int unsigned r,d,i;
unsigned long long o;
o=0;
scanf("%d %d",&r,&d);
for (i=1;i<=r-1;i++)
if ((fakt(r)/(fakt(r-i)*fakt(i)))%d == 0) o+=1;
printf("%lld",o);
}