Cod sursa(job #26281)
Utilizator | Anca Cotocea Anca_coto | Data | 5 martie 2007 13:45:33 |
---|---|---|---|
Problema | Numere 2 | Scor | 50 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.59 kb |
program numere;
var j,x,k,p,t,n:longint;
f,g:text;
gasit:boolean;
begin
assign(f,'numere2.in');
reset(f);
assign(g,'numere2.out');
rewrite(g);
while not (eof(f))do
begin
read(f,n);
k:=2;
gasit:=false;
while (k<=n) and(gasit=false)do
begin
j:=0;
x:=n;
while x mod k=0 do
begin
j:=j+1;
x:=x div k;
end;
p:=1;
t:=j;
while j>0 do
begin
p:=p*k;
j:=j-1;
end;
if p=n then
begin
gasit:=true;
writeln(g,k);
writeln(g,t);
end;
k:=k+1;
end;
end;
close(f);
close(g);
halt(0);
end.