p1
clear
input"n=" to n
dime a(n)
i=0
for h=2 to n
if ss(h)=1
i=i+1
a(h)=i
endif
endfor
for j=2 to i
?a(j)
endf
p2
dime a(n)
for h=2 to n
if ss(h)=1
a(h)=h
else
a(h)=0
endif
endfor
i=0
dime b(n)
for j=2 to n
if a(j)>0
i=i+1
b(i)=a(j)
endif
endf
for o=2 to i
?a(o)
endf
第一个会输出一堆.F.