用PASCAL编程:1至100的素数

会的写出来,不会的别说废话!

Program xxx(input,output);

var

n,i:integer;

f:boolean;

begin

for n:=1 to 100 do

begin

f:=true;

for i:=2 to trunc(sqrt(n)) do

if (n mod i =0) then begin f:=false;break;end;

if f then writeln(n:4);

end;

end.

• ·求助：卖咖啡把我的百度搜索条给删除了怎么办？
• ·初级会计是怎么回事 怎样报名考 详细些谢谢
• ·有谁知道长城汽车的网址？
• ·请问：要学电脑，哪些专业比较好，如果是自学．哪
• ·“超营养鸡排”是什么意思？
• ·不知道各位有谁知道，气功教材啊
• ·临沂去青岛怎么走
• ·怎样亲到自己的的顶部
• ·初二物理，急~~~~，线上等着呢！！！
• ·HttpGet16bt8 是什么?