Cod sursa(job #24127)

Utilizator Boss_2007Marian Ciprian Boss_2007 Data 1 martie 2007 20:35:59
Problema Pascal Scor 70
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.66 kb
#include<stdio.h>
long int r,d,p2,p3,p5,q2,q3,q5,up,down,cont,i;
int main()
{
	FILE *f;
	f=fopen("pascal.in","r");
	fscanf(f,"%ld%ld",&r,&d);
	fclose(f);
	if(d==2) {p2=1;p3=0;p5=0;}
	if(d==3) {p2=0;p3=1;p5=0;}
	if(d==4) {p2=0;p3=2;p5=0;}
	if(d==5) {p2=0;p3=0;p5=1;}
	if(d==6) {p2=1;p3=1;p5=0;}
	for(i=1;i<=r-1;i++)
	{up=r+1-i;down=i;
	 while(up%2==0){q2++;up/=2;}
	 while(down%2==0){q2--;down/=2;}
	 while(up%3==0){q3++;up/=3;}
	 while(down%3==0){q3--;down/=3;}
	 while(up%5==0){q5++;up/=5;}
	 while(down%5==0){q5--;down/=5;}
	 if((p2<=q2)&&(p3<=q3)&&(p5<=q5)) cont++;
	 }
	f=fopen("pascal.out","w");
	fprintf(f,"%ld\n",cont);
	fclose(f);
	return 0;
}