Cod sursa(job #9024)

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