vfp编程找出一个大于给定整数且紧随这个整数的素数

2025-04-04 23:36:56
推荐回答(1个)
回答1:

clear
set talk off
input to n
find=.f.
do while not find
n=n+1
m=int(sqrt(n))
k=0
for i=2 to m
if int(n/i)=n/i
k=k+1
exit
endif
next i
if k=0
find=.t.
endif
enddo
? n
return