UC知道这个程序看的不是很明白，帮我加个注释吧。要详细点哦。XX了
来源：百度知道 编辑：UC知道 时间：2024/06/14 01:05:36
Pascal程序：Program Exam53;
const N=100;type xx=1 .. N; {自定义子界类型xx（类型名）}
Var a: array[xx] of boolean;
i,j: integer;
Begin
Fillchar(a,sizeof(a),true);
a[1] := False;
for i:=2 to Trunc(sqrt(N)) do
if a[I] then
for j := 2 to N div I do
a[I*j]:= False;
t:=0;
for i:=2 to N do
if a[i] then
Begin
write(a[ i ]:5);
inc(t);
const N=100;type xx=1 .. N; {自定义子界类型xx（类型名）}
Var a: array[xx] of boolean;
i,j: integer;
Begin
Fillchar(a,sizeof(a),true);
a[1] := False;
for i:=2 to Trunc(sqrt(N)) do
if a[I] then
for j := 2 to N div I do
a[I*j]:= False;
t:=0;
for i:=2 to N do
if a[i] then
Begin
write(a[ i ]:5);
inc(t);
Program Exam53;
const N=100;
type xx=1 .. N; {自定义子界类型xx（类型名）xx的范围是1~N（1~100）}
Var a: array[xx] of boolean; {a是数组，最多有100个值，属于布尔型的（真或假）}
i,j: integer;
Begin
Fillchar(a,sizeof(a),true); {给数组a初始化，全部赋值为真}
a[1] := False; {a[1]为假}
for i:=2 to Trunc(sqrt(N)) do
if a[i] then {如果a[i]的值是真}
for j := 2 to N div i do
a[I*j]:= False;
t:=0;
for i:=2 to N do
if a[i] then
Begin
write(a[ i ]:5);
inc(t);
if t mod 5=0 then
writeln
end;
readln
End.