Cod sursa(job #780062)

Utilizator lehman97Dimulescu David lehman97 Data 19 august 2012 20:56:20
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.48 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,nr3,n;


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


for(j=0;j<=r+1;j++){
  nr2=0;
  nr3=0;
for(i=d;i<=j;i+=d){
ci=i;
while(ci%d==0){ci=ci/d;nr2++;}
}
n=r-j;
for(i=d;i<=n;i+=d){
ci=i;
while(ci%d==0){ci=ci/d;nr3++;}
}

if(nr>(nr2+nr3)) k++;

}

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