發表新討論
#3709: PASCAL——TLE


annieicaros (annie_fei)

學校 : 上海市同济大学附属七一中学
編號 : 11746
來源 : [61.173.104.87]
最後登入時間 ：
2010-05-18 22:44:56
a007. 判斷質數 | From: [61.173.82.72] | 發表日期 : 2010-05-06 22:21

var
a,b,x:longint;
begin
while not seekeof do begin
 x:=0;
 readln(a);
 for b:=2 to a-1 do
 begin
 if a mod b=0 then x:=1;
 end;
if a<=1 then x:=1;
case x of
0:writeln('質數');
1:writeln('非質數');
end;
end;
end.

----------

以上用了大量mod，可能超時

有什麽簡便方法？

 
#3710: Re:PASCAL——TLE


magrady (元元)

學校 : 臺北市立第一女子高級中學
編號 : 1445
來源 : [114.34.203.11]
最後登入時間 ：
2024-01-15 00:19:19
a007. 判斷質數 | From: [59.113.131.235] | 發表日期 : 2010-05-06 22:28

var
a,b,x:longint;
begin
while not seekeof do begin
 x:=0;
 readln(a);
 for b:=2 to a-1 do
 begin
 if a mod b=0 then x:=1;
 end;
if a<=1 then x:=1;
case x of
0:writeln('質數');
1:writeln('非質數');
end;
end;
end.

----------

以上用了大量mod，可能超時

有什麽簡便方法？


不是Pascal的問題。 
ZeroJudge Forum