讨论 / 水的程度可以与陶陶摘苹果相提并论 Pascal
Heartbeat 2015-09-19 22: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-07 11:57:38
回复 删除
优化

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.

查看更多回复
提交回复