Cod sursa(job #504807)

Utilizator Robert29FMI Tilica Robert Robert29 Data 28 noiembrie 2010 19:42:44
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 kb
#include <stdio.h>
FILE*f=fopen("pascal.in","r");
FILE*g=fopen("pascal.out","w");
int nr,i,r,d,v[5005];
int fact(int a,int b){
	int z=0;
	while(a%b==0){
		a/=b;
		z++;
	}
	return z;	
}
int main() {
	fscanf(f,"%d%d",&r,&d);
	for(i=1;i<=r+1;i++)
		v[i]=v[i-1]+fact(i,d);
	for(i=1;i<(r+1)/2;i++)
		if(v[r]-v[r-i]-v[i]>=1)
			nr++;
	nr*=2;
	if(r%2==0)
		if(v[r]-v[r-i]-v[i]>=1)
			nr++;
	
	fprintf(g,"%d",nr);
	
	fclose(f);
	fclose(g);
	return 0;
}