Heartbeat 2015-09-19 07:56:03
点我顶贴
收藏
删除
var n,i:longint;
begin
readln(n);
for i:=2 to n div 2 do
begin
if n mod i=0 then
begin
writeln(n div i);
break;
end;
end;
end.
#1 Heartbeat@2015-10-06 20:57:38
33437
回复
删除
优化
var n,i:longint;
begin
read(n);
for i:=2 to trunc(sqrt(n)) do
begin
if n mod i=0 then
begin
write(n div i);
break;
end;
end;
end.