新建一个程序,写代码: num=0
for i=10 to 1000
if i%7=0 or i%9=0
num=num+1
endif
next
? "[10,1000]内所有能被7和9中至少一个数整除的整数之个数为:",num 图:
FUNCTION tt &&函数名字可以自定义
LOCAL nsum
nsum = 0
FOR i = 1 TO 101000
IF i/7 == INT(i/7) .or. i/9 == INT(i/9)
nsum = nsum + 1
ENDIF
ENDFOR
? nsum
ENDFUNC 使用格式:tt()