Cod sursa(job #11295)

Utilizator anna_bozianuBozianu Ana anna_bozianu Data 31 ianuarie 2007 09:53:54
Problema Factorial Scor 85
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
#include<stdio.h>
long int p,n,x[14],y[14];
int i;
int main()
{ FILE *f;
f=fopen("fact.in","r");
fscanf(f,"%ld",&p);
fclose(f);
x[0]=1;
for(i=1;i<=13;i++)
{x[i]=5*x[i-1];}
y[0]=0;
for(i=1;i<=13;i++)
{y[i]=5*y[i-1]+1;}
for(i=13;i>=1;i--)
{
n=n+(p/y[i])*x[i];
p=p%y[i];}
f=fopen("fact.out","w");
fprintf(f,"%ld\n",n);
fclose(f);
return 0;
}