Cod sursa(job #138431)

Utilizator hulparuadrianhulparu adrian hulparuadrian Data 18 februarie 2008 17:14:43
Problema Factoriale Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.51 kb
#include<fstream.h>
#include<math.h>
	ifstream f("factoriale.in");
	ofstream g("factoriale.out");
int factori[100],n,k,o,i;
void creste(int o)
{
	for(int aux=2;aux<=o;aux++)
    {

     int l=aux,d=2;
     while(l!=1)
	{ while(l%d==0)
		{if (factori[d]+1!=k) factori[d]=k-(++factori[d]%k);
			else factori[d]=0;
			l/=d;}
		d++;}}}
int main()
{
f>>n>>k;
for(i=1;i<=n;f>>o,creste(o),i++);
long long sol=1;
for(i=1;i<100;i++)
	sol*=pow(i,factori[i]);

g<<sol;
f.close();
g.close();
return 0;
	}