pascal单纯质因数为什么超时
答案:1 悬赏:30 手机版
解决时间 2021-11-30 21:54
- 提问者网友：浮克旳回音
- 2021-11-30 02:40
pascal单纯质因数为什么超时
最佳答案
- 五星知识达人网友：举杯邀酒敬孤独
- 2021-11-30 03:16
对程序作了微调。由于运算量大，超时也是意料中的事。
var
n,i,x,y,j,z:longint;
bz:boolean;
begin
readln(n);
for j:=6 to n do
begin
y:=j;
i:=2;
z:=0;
bz:=true;
while (bz)and(i<=y) do
begin
x:=0;
while y mod i=0 do
begin
y:=y div i;
x:=x+1;
z:=z+1;
if x=2 then bz:=false;
end;
inc(i);
end;
if (bz=true)and(z>1)then write(j,' ');
end;
end.
var
n,i,x,y,j,z:longint;
bz:boolean;
begin
readln(n);
for j:=6 to n do
begin
y:=j;
i:=2;
z:=0;
bz:=true;
while (bz)and(i<=y) do
begin
x:=0;
while y mod i=0 do
begin
y:=y div i;
x:=x+1;
z:=z+1;
if x=2 then bz:=false;
end;
inc(i);
end;
if (bz=true)and(z>1)then write(j,' ');
end;
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯