clear
for n=1 to 10
input "请输入一个整数:" to i
x=0
for j=2 to i-1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
?"是素数"
else
?"不是素数"
endif
endfo
clear
for n=1 to 10
input "请输入一个整数:" to i
x=0
for j=2 to i-1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
?"是素数"
else
?"不是素数"
endif
endfo