Cod sursa(job #268683)

Utilizator warangeldinu sorin warangel Data 1 martie 2009 17:22:39
Problema Factorial Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.55 kb
#include<stdio.h>
int main()
{
   unsigned long put5[]={25,125,625,3125,15625,78125,390625,1953125,9765625,48828125,244140625,1220703125};
	unsigned long nr,scad,j;
   int i;
   FILE *fi,*fo;
   fi=fopen("fact.in","r");
   fo=fopen("fact.out","w");
   fscanf(fi,"%lu",&nr);
   nr*=5;
   for(i=0;i<=11;i++)
      if(put5[i]<=nr)
   		{
            scad=(int)nr/put5[i];
            for(j=1;j<=scad;j++)
            {
               if(nr%put5[i]==0)scad--;
               nr-=5;
            }
         }
   fprintf(fo,"%lu",nr);
   return 0;
}