Cod sursa(job #137944)

Utilizator hulparuadrianhulparu adrian hulparuadrian Data 17 februarie 2008 17:37:44
Problema Factoriale Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.84 kb
#include<fstream.h>
#include<iomanip.h>
#include<math.h>
                   ifstream f("factoriale.in");
                   ofstream g("factoriale.out");
int puteri[100],l,n,k,x;
void mark_div(int l)
{
     int aux=l,d=2;
     while(aux!=1)
     {
               if(aux%d==0)
               while(aux%d==0)
                              {puteri[d]++;aux/=d;} 
                              d++;  
                  }
     }
int main()
{
    f>>n>>k;
    for(int i=1;i<=n;i++)
                     {f>>x;
                     for(int l=2;l<=x;mark_div(l),l++);
                                    }
long double sol=1;
for(int i=2;i<=97;i++)
  {
                  if (puteri[i]) sol*=(long double)pow(i,puteri[i]%k);
                  }               
  g<<(long long)sol;
    f.close();
    g.close();
    return 0;
    }