dayinyibaiyineibunengbeisanzhengchu.prg

打印100以内3的倍数

clea

m=0
a="q"

for i=1 to 100
if i/3=int(i/3)
loop
endif
??i
m=m+1
if mod((m+1),5)=0
wait "要继续么" to a 
endif
if a="n"
exit
endif
next