Cod sursa(job #714887)

Utilizator iarbaCrestez Paul iarba Data 16 martie 2012 12:14:58
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include <stdio.h>
FILE *f,*g;
long n,exp,i,j,p,tot,r;
int main()
{
	f=fopen("pascal.in","r");
	g=fopen("pascal.out","w");
	fscanf(f,"%ld%ld",&n,&exp);
	for(i=0;i<=n/2;i++){
		 j=n-i;
		 p=exp;
		 tot=0;
		 while(n/p){
			 tot+=(n/p)-(i/p)-(j/p);
			 p*=exp;
		         }
		 if(tot>0){if(i==j){r++;}
		           else{r+=2;}
		          }
					   }
	fprintf(g,"%ld",r);
	fclose(f);fclose(g);
return 0;
}