Question

用VFP求100到200之间的素数的个数?

Answer 1

lflag=.f.

ntime=0

nadd=0

for i=100 to 200

for j=2 to i

if int(i/j)=i/j

ntime=ntime+1

endif

endfor

if ntime=1

nadd=nadd+1

endif

ntime=0

endfor

nadd