Cod sursa(job #91846)

Utilizator vladbBogolin Vlad vladb Data 13 octombrie 2007 16:07:03
Problema Factorial Scor 50
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.6 kb
#include<fstream.h>
#include<math.h>

unsigned long p,n,e,i,d,c,ok;

void citire();
void prel();
void afis();

void citire()
{  ifstream fin("fact.in");
   fin>>p;
   fin.close();
}

void prel()
{  if(p==0) n=1;
   else
   {
   c=5;
   ok=1;
   for(i=5;i<=c&&ok;i+=5)
   {   d=i;
       while(d%5==0)
       { d/=5;
	 e++;
       }
       if(e==p)
		{ n=i;
		  ok=0;
		}
      c+=5;
   }
   }
}

void afis()
{  ofstream fout("fact.out");
   if(ok==0)fout<<n;
      else fout<<-1;
   fout.close();
}

int main()
{  citire();
   prel();
   afis();
   return 0;
}