Cod sursa(job #714887)
Utilizator | 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;
}