Cod sursa(job #84327)

Utilizator bent_larsenSturzu Antonio-Gabriel bent_larsen Data 14 septembrie 2007 14:59:07
Problema Numere 2 Scor 40
Compilator c Status done
Runda Arhiva de probleme Marime 0.55 kb
#include<stdio.h>




int main()
{
int n,A,B,div[100000],d,i,p=1,prim,prim1,bun=1,n1;
FILE *f=fopen("numere2.in","r");
fscanf(f,"%i",&n);
n1=n;



for(i=0;i<100000;i++)
div[i]=0;



for(d=2;n>1;d++)
{
while(n%d==0)
{
n/=d;
div[d]++;
}
}

for(i=0;i<d;i++)
if(div[i]!=0)
{
prim1=i;
prim=i;
p=prim;
break;
}



for(i=prim1+1;i<d;i++)
{
if(div[i]!=0 && div[prim]==div[i])
{
prim=i;
p*=i;
}
else if(div[i]!=0)
{
bun=0;
break;
}
}

fclose(f);
f=fopen("numere2.out","w");
if(bun==0)
fprintf(f,"%i\n%c",n1,'1');
else
fprintf(f,"%i\n%i",p,div[prim1]);
fclose(f);
}