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

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

来源:互联网  宽屏版  评论

2010-02-27 05:02:15

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

答对了再加30分

参考答案:

看错了，我以为你说求和。

set talk off

clear

s=0

for i = 3 to 200

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

s = s + 1

endif

endfor

? s

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

[b]分类:[/b] 电脑/网络 >> 程序设计 >> 其他编程语言[br][b]问题描述:[/b][br]答对了再加30分[br][b]参考答案:[/b][br]看错了，我以为你说求和。

set talk off

clear

s=0

for i = 3 to 200

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

s = s + 1

endif

endfor

? s

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