神马品牌网行尸走肉朱迪斯去哪了:编写程序：500到2500之间的第40个素数是多少？
来源：百度文库 编辑：神马品牌网 时间：2024/05/01 16:55:51
Private Sub Command1_Click()
Dim i As Integer, j As Integer
j = 0
For i = 500 To 2500
If isprime(i) Then
j = j + 1
If j = 40 Then
MsgBox i
Exit For
End If
End If
Next
End Sub
Function isprime(n As Integer) As Boolean
isprime = True
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then
isprime = False
Exit For
End If
Next i
End Function
不知道对不对 哈
这是Pascal版：
program primenumber;
var
i,j,x,x1,s:integer;
f:boolean;
begin
s:=0;
for i:=500 to 2500 do
if (i mod 2=1) and (s<40) then
begin
x:=i;f:=true;
for j:=2 to trunc(sqrt(x)) do
if x mod j=0 then begin f:=false;exit; end;
if f then s:=s+1;if s=40 then x1:=i;
end;
writeln(x1);
end.