CLS
DO
  i = i + 1: i0 = i: s = 0
  IF i0 MOD 5 = 1 THEN
     s = s + i0 \ 5: i0 = i0 \ 5 * 4
     IF i0 MOD 5 = 1 THEN
        s = s + i0 \ 5: i0 = i0 \ 5 * 4
        IF i0 MOD 5 = 1 THEN
           s = s + i0 \ 5: i0 = i0 \ 5 * 4
           IF i0 MOD 5 = 1 THEN
              s = s + i0 \ 5: i0 = i0 \ 5 * 4
              IF i0 MOD 5 = 1 THEN
                 s = s + i0 \ 5: i0 = i0 \ 5 * 4
                 IF s MOD 5 = 1 THEN PRINT i: END
              END IF
           END IF
        END IF
     END IF
  END IF
LOOP
END

DIM a(3)
y1 = 3
1 y = y1
x = 0
FOR i = 1 TO 3
x = y / 2 + 1 / 2
IF ABS(x - INT(x)) <> 0 THEN 2
a(i) = x: y = y - x
NEXT i
PRINT a(1), a(2), a(3)
END
2 : y1 = y1 + 1
GOTO 1

n = 3
DO
n = n + 1
a = n / 2 + .5: b = (n - a) / 2 + .5: c = (n - a - b) / 2 + .5
LOOP WHILE a <> FIX(a) OR b <> FIX(b) OR c <> FIX(c)
PRINT a, b, c
END

n = 0
1 n = n + 1
a = n / 2 + .5: b = n - a
IF a <> FIX(a) THEN 1
b = b / 2 + .5: c = n - a - b
IF b <> FIX(b) THEN 1
c = c / 2 + .5
IF c <> FIX(c) THEN 1
PRINT a, b, c: END

三种方法你随便选哪种,看哪种好理解

这道题有点难度，希望可以好好分析题意。五个人分五次，每次各藏一堆，余一个。藏多少个是未知数，每次分的也是未知数，只有次数和余数是已知数。分析一下该题一共有十个末知数。两位可否把运行结果贴一下，对照一下看看对不对。谢谢两位的程序。

这类题选用递归算法，可能是不错的选择。

我计算的结果是20136006，大家看看对不对。

时间  总数    分成五份,每份多少个   剩下多少个  算式
第1天 3121        624               624x4=2496  624*5+1=3121
第2天 2496        499               499*4=1996  499*5+1=2496
第3天 1996        399               399*4=1596  399*5+1=1996
第4天 1596        319               319*4=1276  319*5+1=1596
第5天 1276        255               255*4=1020  255*5+1=1276
最后  1020        +624+499+399+319+255=(3121-5)=3116    3116 mod 5=1

实际上根本不用一个一个循环,也不用用这么多IF.
CLS
i=1                   
DO
  i=i+5
  s=i
  FOR j=1 TO 5
      IF s MOD 5<>1 THEN EXIT FOR             
      s=(s-1)/5*4                     
  NEXT j
LOOP UNTIL j=6
PRINT i
END
运行结果:3121