Cod sursa(job #442420)

Utilizator atiykaSzasz Attila atiyka Data 14 aprilie 2010 15:04:36
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("%d",o);
}