Cod sursa(job #716714)

Utilizator iarbaCrestez Paul iarba Data 19 martie 2012 10:10:23
Problema Pascal Scor 70
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.79 kb
#include <stdio.h>
long k,p2,p3,p5,n,i,d,p,r;
FILE *f,*g;
int main()
{
	k=0;
	f=fopen("pascal.in","r");
	g=fopen("pascal.out","w");
	fscanf(f,"%ld%ld",&n,&d);
	p2=0;p3=0;p5=0;
	for(i=0;i<=n/2-1;i++){
		p=2;
		r=n-i;
		while(r%2==0){p2++;r/=2;}
		r=n-i;
		while(r%3==0){p3++;r/=3;}
		r=n-i;
		while(r%5==0){p5++;r/=5;}
		r=i+1;
		while(r%2==0){p2--;r/=2;}
		r=i+1;
		while(r%3==0){p3--;r/=3;}
		r=i+1;
		while(r%5==0){p5--;r/=5;}
		if(d==2){if(p2>0){k+=2;if((n%2==0)&&(i==n/2-1)){k--;}}}
		if(d==3){if(p3>0){k+=2;if((n%2==0)&&(i==n/2-1)){k--;}}}
		if(d==4){if(p2>1){k+=2;if((n%2==0)&&(i==n/2-1)){k--;}}}
		if(d==5){if(p5>0){k+=2;if((n%2==0)&&(i==n/2-1)){k--;}}}
		if(d==6){if((p2>0)&&(p3>0)){k+=2;if((n%2)&&(i=n/2)){k--;}}}
	                   }
	fprintf(g,"%ld",k);
return 0;
}