Cod sursa(job #63261)

Utilizator kojocojocaru aurelian kojo Data 27 mai 2007 17:41:18
Problema Factorial Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.41 kb
#include<fstream.h>
ifstream f("fact.in");
ofstream g("fact.out");
void perm(unsigned long &fif, unsigned long p)
{
unsigned long sir=1;
do 
 sir=sir*5+1;
while(sir<=p);
while(sir>1)
{fif-=fif/sir;
 sir=(sir-1)/5;
}
}
int main()
{
unsigned long p,fife=0,fif;
f>>p;
if(!p)
 g<<1;
else
{fif=p;fife=p+1;
 perm(fif,p);
 perm(fife,p+1);
 if(fife!=fif)
  g<<5*fif;
 else
  g<<-1;
}
return 0;
}