Cod sursa(job #63708)

Utilizator swift90Ionut Bogdanescu swift90 Data 30 mai 2007 10:32:12
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.33 kb
#include<stdio.h>
int main(){
	freopen("pascal.in","r",stdin);
	freopen("pascal.out","w",stdout);
	int r,d,i,n,nr=0;
	
	scanf("%d %d",&r,&d);
	
	n=1;
	for(i=0;i<(r+1)/2-1;i++){
		n=n*(r-i)/(i+1);
		if(n%d==0)
			nr+=2;
	}
	if(r%2==0){
		n=n*(r-i)/(i+1);
		if(n%d==0)
			nr++;
	}
	
	printf("%d\n",nr);
	
	return 0;
}