xwcool 2013-10-28 00:41:00
点我顶贴
收藏
删除
var
i,j,f,n,m,x,f2,k:longint;
begin
readln(n);
m:=trunc(sqrt(n))+1;
for i:=2 to m do
begin
f:=1;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then
begin
f:=0;
break;
end;
if (f=1) and (n mod i=0) then
begin
x:=n div i; f2:=1;
for k:=2 to trunc(sqrt(x))+1 do
if x mod k=0 then
begin
f2:=0;break;
end;
if f2=1 then
begin
write(x);break;
end;
end;
end;
end.