Cod sursa(job #1357737)

Utilizator TarabanDragosTaraban Dragos-Petru TarabanDragos Data 24 februarie 2015 03:08:20
Problema Factoriale Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 1.05 kb
#include<cstdio>
int n,k,i,j,ii,a,nr,v[110],d[110],x[100100],pr[110],er[110];
FILE *f,*g;
void inm(int a){
    int i,t=0,c;
    for(i=1;i<=x[0];i++){
        c=( x[i] * a +t );
        x[i]=c%10;
        t=c/10;
    }
    while(t){
        x[ ++x[0] ]=t%10;
        t/=10;
    }
}
int main(){
    f=fopen("factoriale.in","r");
    g=fopen("factoriale.out","w");
    fscanf(f,"%d%d",&n,&k);
    er[1]=1;
    for(i=2;i<=100;i++){
        if(!er[i]){
            for(j=i+i;j<=100;j+=i){
                er[j]=1;
            }
            pr[++nr]=i;
        }
    }
    for(i=1;i<=n;i++){
        fscanf(f,"%d",&v[i]);
        for(j=1;j<=nr;j++){
            for(ii=pr[j];ii<=v[i];ii*=pr[j]){
                d[ pr[j] ]+=v[i]/ii;
            }
        }
    }
    x[0]=x[1]=1;
    for(i=1;i<=nr;i++){
        a=pr[i];
        if(d[a]%k)
            for(j=1;j<=k-d[a]%k;j++){
                inm(a);
            }
    }
    for(i=x[0];i>=1;i--){
        fprintf(g,"%d",x[i]);
    }
    fclose(f);
    fclose(g);
    return 0;
}