CLS
FOR a = 1 TO 50 \ 3
 FOR b = 1 TO 50 \ 2
  FOR c = 1 TO 28
   IF a + b + c = 30 AND 3 * a + 2 * b + c = 50 THEN PRINT a; b; c: s = s + 1
NEXT c, b, a
PRINT "S="; s
END

CLS
FOR a = 1 TO 50 \ 3
 FOR b = 1 TO 50 \ 2
  FOR c = 1 TO 28
   IF a + b + c = 30 AND 3 * a + 2 * b + c = 50 THEN PRINT a; b; c: s = s + 1
NEXT c, b, a
PRINT "S="; s
END

CLS
PRINT "MAN", "WOMAN", " CHILDREN"
FOR M= 1 TO INT(50 / 3)
  FOR W= 1 TO INT(50 / 2)
    C = 30 - M - W
    IF M + W + C = 30 AND M * 3 + W * 2 + C = 50 THEN PRINT M, W, C: S = S + 1
  NEXT W
NEXT M
PRINT "ZONGJI:"; S
END
比小精灵1号和我的电脑打印美观，而且少一个FOR循环，速度更快！
 

CLS
FOR A = 1 TO 50 \ 3
  FOR B = 1 TO 50 \ 2
    C = 30 - A - B
    IF 3 * A + 2 * B + C = 50 THEN PRINT A; B; C : S = S + 1
  NEXT B
NEXT A
PRINT "S="; S
END