水爆了6行

var n,p,i:longint;
begin
readln(n);
for i:=1 to n div 2 do if n mod i=0 then p:=i;
writeln(p);
end.

1 条评论

  • 1

信息

ID
1773
难度
3
分类
(无)
标签
(无)
递交数
2132
已通过
1043
通过率
49%
被复制
3
上传者