中科新闻网手术去痣一般多少钱:Pascal的题目
来源：百度文库 编辑：中科新闻网 时间：2024/05/03 04:43:50
输出200-500以内的素数的个数，并输出所求素数的大小顺序间隔加、减（即第1个素数—第2个素数+第3个素数）
var
d:longint;
i,j,b:integer;
a:array[1..200] of integer;
bl:boolean;
begin
b:=0;
for i:=200 to 500 do
begin
bl:=true;
for j:=2 to i-1 do
if i mod j=0
then bl:=false;
if bl=true
then begin
b:=b+1;
a[b]:=i;
end;
end;
writeln(b);
d:=a[1];
for i:=b downto 2 do
if i mod 2<>0
then d:=d+a[i]
else d:=d-a[i];
writeln(d);
end.