2007-11-2-15-20.prg

来自「用EVC4.0实现的一种类似于BASIC的编程语言,可以实现基本的编程并可以执行」· PRG 代码 · 共 14 行

rem 求1到100以内的质数
int i,j,p,t
for i=2,100,1
let p=0
for j=i-1,99,1
let t=i%j
jne t,0,xxxx
let p=1
label xxxx

next
label break
print i
next