Cod sursa(job #780082)

Utilizator lehman97Dimulescu David lehman97 Data 19 august 2012 21:17:12
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include <stdio.h>

FILE *f=fopen("pascal.in","r");
FILE *g=fopen("pascal.out","w");

int r,d,j,k,nr,nr2,i,ci,fac[5000000];


int main(){
fac[0]=0;
fscanf(f,"%d%d",&r,&d);
k=0;
for(i=1;i<=r;i++){
ci=i;
nr=0;
while(ci%d==0){ci=ci/d;nr++;}
fac[i]=fac[i-1]+nr;
}


for(j=0;j<=r;j++){
if(fac[r]>(fac[r-j]+fac[j])) k++;

}

fprintf(g,"%d",k);
fclose(g);
return 0;
}