Question

求出3到200之间的所有非偶数非素数的数的个数.(用VFP编写)

Answer 1

看错了,我以为你说求和.

set talk off

clear

s=0

for i = 3 to 200

if mod(i,2) 0 and notsu(i)

s = s + 1

endif

endfor

set talk on

return

function notsu(x)

for j=2 to sqrt(x)

if x%j=0

return(.t.)

endif

endfor

if j>sqrt(x)

return(.f.)

endif

endfunc