Cod sursa(job #63947)

Utilizator swift90Ionut Bogdanescu swift90 Data 31 mai 2007 19:37:01
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include<stdio.h>
int main(){
	freopen("pascal.in","r",stdin);
	freopen("pascal.out","w",stdout);
	int r,d,i,nr=0;
	long long n;
	scanf("%d %d",&r,&d);
	
	n=1;
	for(i=0;i<(r+1)/2-1;i++){
		n=(n/(i+1))*(r-i);
		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;
}