Cod sursa(job #2415075)

Utilizator DanutAldeaDanut Aldea DanutAldea Data 25 aprilie 2019 15:11:33
Problema Factoriale Scor 20
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.82 kb
#include <fstream>
using namespace std;

ifstream fin("factoriale.in");
ofstream fout("factoriale.out");

int n,k,i,j,e[101][101],d,x,v[101];
///e[i][j]-la ce putere este j in descompunerea lui i!, daca i e prim

int main(){
    fin>>n>>k;
    for(i=1;i<=100;i++){
        j=i;
        for(d=2;d<=j;d++){
            if(j%d==0){
                while(j%d==0){
                    j/=d;
                    e[i][d]++;
                }
            }
        }
    }

    for(i=2;i<=100;i++)
        for(j=1;j<=100;j++)
            e[i][j]+=e[i-1][j];

    for(;n;n--){
        fin>>x;
        for(i=1;i<=100;i++)
            v[i]+=e[x][i];
    }

    long long sol=1;
    for(i=1;i<=100;i++)
        if(v[i]%k!=0)
            for(j=v[i];j<k;j++)
                sol*=i;
    fout<<sol;

    return 0;
}