Cod sursa(job #16877)

Utilizator vali_miValy Mihai vali_mi Data 14 februarie 2007 13:17:35
Problema Factorial Scor 80
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.37 kb
#include<stdio.h>
FILE *f1,*f2;
int main()
{long int x,p,nrad,nrp;
f1=fopen("fact.in","r");
fscanf(f1,"%li",&p);
fclose(f1);
if(p==0)
x=1;
else{
nrad=0;nrp=p;
while (nrp>=5){
nrad+=5;nrp-=5;
x=nrad;
while(x%5==0)
{x=x/5;nrp--;}
}
if(nrp<0) x=-1;
else{
nrad=nrad+nrp;
x=nrad*5;}}
f2=fopen("fact.out","w");
fprintf(f2,"%li",x);
fclose(f2);
return 0;
}