1000到2000内第一百个素数是多少 从从小到大 急
发布网友
发布时间:2022-05-14 09:20
我来回答
共1个回答
热心网友
时间:2023-10-12 18:01
先给你说一个 判断素数的函数:
=============================================================
function judge(num:longint):boolean;
var
i:longint;
begin
for i:=2 to trunc(sqrt(num)) do//从2到所判断数的算术跟
begin
if num mod i=0
then exit(false);//不是素数
end;
exit(true);//是素数
end;
=============================================================
求第一百个素数的代码如下:
=============================================================
program t;
const
maxn=10000000;
var
i,j,k,total:longint;
a:array[1..maxn]of longint;
function judge(num:longint):boolean;
var
i:longint;
begin
for i:=2 to trunc(sqrt(num)) do//从2到所判断数的算术跟
begin
if num mod i=0
then exit(false);//不是素数
end;
exit(true);//是素数
end;
begin
for i:=1000 to 2000 do
begin
if judge(i)
then begin
inc(total);
a[total]:=i;
end;
end;
writeln(a[100]);
end.
=============================================================
答案是1721
希望对你有所帮助