社区讨论
为什么超时？60分。
P1075[NOIP 2012 普及组] 质因数分解参与者 8已保存回复 12
讨论操作
快速查看讨论及其快照的属性，并进行相关操作。
- 当前回复
- 12 条
- 当前快照
- 1 份
- 快照标识符
- @mi7xiq3a
- 此快照首次捕获于
- 2025/11/21 05:14 4 个月前
- 此快照最后确认于
- 2025/11/21 06:38 4 个月前
var
n,i,max:longint;
function prime(i:longint):boolean;
var
j:longint;
begin
if odd(i)=true then
begin
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then exit(false);
exit(true);
end
else exit(false);
end;
begin
readln(n);
for i:=2 to n-1 do
if (n mod i=0)and(prime(i))and(max<i)then max:=i;
write(max);
end.
回复
共 12 条回复，欢迎继续交流。
正在加载回复...