求出100以内的全部素数，并按每行五个数显示
时间限制：1000MS   内存限制：1000K
解答次数：668   通过次数：358
【试题描述】
求出100以内的全部素数，并按每行五个数显示。
【输入描述】
【输出描述】
依题意
【输入样例】
【输出样例】
2 3 5 7 11
......
【试题来源】


素数判断有很多种方法啊
最简单的就是暴力判断2--根号N是否能被整除
如果范围大的话改用MILLER-RABBIN

wuliao

var
a:array[1..100]of boolean;
i,j:longint;
begin
for i:=2 to 100 do
    a[i]:=true;
for i:=3 to 100 do
     for j:=2 to i-1 do
      if i mod j=0
        then a[i]:=false;
j:=0;
for i:=1 to 100 do
    begin
      if a[i]=true
      then
        begin
          write(i);
          j:=j+1;
        end;
     if j mod 5=0 then writeln;
     end;
end.
基础题目练手感

范围为1~100较小，可以分别用2,3,5,7(因为11*11>100)除每个数，如果都不整除就输出，每输出五个一换行就好了。

ds

program practice;
var N,k,t,x,r:integer;
begin
write('Print N(N<32768) yi nei zhi shu ');readln(N);
for r:=1 to N do
begin
for k:=1 to r do if r mod k=0 then t:=t+1;
if t=2 then write(r,' ');
t:=0;
end;
readln;
end.
五个一行显示不做了，自己添上吧。I

program P100(input, output);
var c, n: integer;
begin
write(2:2, ' ', 3:2, ' ', 5:2, ' ', 7:2, ' ');
c:=4;
for n:=11 to 100 do
begin
if (n mod 2=0) or (n mod 3=0) or (n mod 5=0) or (n mod 7=0) then continue;
write(n:2, ' ');
c:=(c+1) mod 5;
if c=0 then writeln;
end;
readln;
end.I

用筛数法就好了 然后最后输出格式再编一下就好了呢~
时光荏苒 pascal

function prime(a:integer):boolean;
var b:integer;
begin
b:=2;
while (b<=sqrt(a)) do
begin
if a mod b = 0 then exit(false);
inc(b);
end;
exit(true);
End;
var a:integer;
begin
assign......
for a:=1 to 100 do
begin
if prime(a) then write(a);
if a mod 5=0 then writeln;
end;
......
END.

用筛法

writeln('2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97');

筛选法求素数，很基础的题啊

begin
writeln('2 3 5 7 11');
writeln('13 17 19 23 29');
writeln('31 37 41 43 47');
writeln('53 59 61 67 71');
writeln('73 79 83 89 97');
readln;
end.

这么多人贡献代码，就不用我动手了。。。