clear
s=0
"（1,100）内所有能被3或被5整除的数有："
for i=1 to 100
if i%3=0 or i%5=0
s=s+1
endif
endfor
"个数为：",s