UC知道pascal 程序解释一下
来源：百度知道 编辑：UC知道 时间：2024/05/29 10:26:50
var
a,b,s,i,j:integer;
begin
rewrite(output);
s:=0;
for i:=2 to 2000 do
begin
a:=1;
for j:=2 to i-1 do
begin
if i mod j=0 then begin a:=0;break; end;
end;
if a=1 then begin inc(s);write(i,' '); if s mod 10=0 then writeln; end;
end;
close(output);
end.
a,b,s,i,j:integer;
begin
rewrite(output);
s:=0;
for i:=2 to 2000 do
begin
a:=1;
for j:=2 to i-1 do
begin
if i mod j=0 then begin a:=0;break; end;
end;
if a=1 then begin inc(s);write(i,' '); if s mod 10=0 then writeln; end;
end;
close(output);
end.
输出1～2000内的素数。
s:=0; //s为个数
for i:=2 to 2000 do //i为待检测数
begin
a:=1;
for j:=2 to i-1 do //枚举i可能的因数
begin
if i mod j=0 then begin a:=0;break; end; //i存在因数
end;
if a=1 then begin inc(s);write(i,' '); if s mod 10=0 then writeln; //a=1表示i为素数，此时输出i，增加s
end;
end;
不会