Cod sursa(job #63259)

Utilizator kojocojocaru aurelian kojo Data 27 mai 2007 17:40:52
Problema Factorial Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 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
for(p=1;p<=10000;p++)
{fif=p;fife=p+1;
 perm(fif,p);
 perm(fife,p+1);
 g<<endl<<p<<' ';
 if(fife!=fif)
  g<<5*fif;
 else
  g<<-1;
}
return 0;
}