DIM a(12) AS INTEGER
DIM i as INTEGER, j AS INTEGER
DIM b as INTEGER
FOR i=1 TO 12
b=INT(RND*100)+100
PRINT b
IF (3 MOD b)=0 THEN a(i)=b
NEXT iFOR i=1 TO 11
FOR j=i TO 12
IF a(i)<>0 AND a(i)>a(j) THEN SWAP a(i),a(j)
NEXT j
NEXT iFOR i=1 TO 12
IF a(i)<>0 THEN PRINT a(i)
NEXT i
DIM i as INTEGER, j AS INTEGER
DIM b as INTEGER
FOR i=1 TO 12
b=INT(RND*100)+100
PRINT b
IF (3 MOD b)=0 THEN a(i)=b
NEXT iFOR i=1 TO 11
FOR j=i TO 12
IF a(i)<>0 AND a(i)>a(j) THEN SWAP a(i),a(j)
NEXT j
NEXT iFOR i=1 TO 12
IF a(i)<>0 THEN PRINT a(i)
NEXT i
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货