求出100至400之间的素数

pascal语言

var

i,j,m:integer;

a:array[100..400] of boolean;

begin

for i:=100 to 400 do a[i]:=true;

for i:=100 to 400 do

for j:=2 to i-1 do begin

m:=i mod j;

if m=0 then a[i]:=false;

end;

for i:=100 to 400 do

if a[i] then write(i:4);

end.

• ·手太阴肺经在何处交于何经：?
• ·求Ashlee Simpson L O V E
• ·碰到这病毒怎么办阿？杀不死ghost.exe
• ·黑毛痣植皮后会不会在长
• ·那个~~我想知道新疆乌鲁木齐哪里有les酒吧？
• ·农谚大全
• ·关于cs 画面的问题~~简单````请教高手
• ·点解每次来月经,个肚都是有小小痛,有乜药方可以
• ·十万火急
• ·拉登死了的机会大不大？