Cod sursa(job #9022)

Utilizator vali_miValy Mihai vali_mi Data 26 ianuarie 2007 13:16:56
Problema Factorial Scor 45
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
#include<stdio.h>
FILE *f1,*f2;
int main()
{long unsigned x,y,p,nrp,nrad;
f1=fopen("fact.in","r");
fscanf(f1,"%lu",&p);
fclose(f1);
nrad=0;nrp=p;
while (nrp>=4){
nrad++;nrp--;
if(nrad%5==0){nrp--;
x=nrad/5;
while(x%5==0)
{x=x/5;nrp--; }
}
}
nrad=nrad+nrp;
x=nrad*5;
f2=fopen("fact.out","w");
fprintf(f2,"%lu",x);
fclose(f2);
return 0;
}