大家帮我算算这道题 我写出来源码了 看看对不对

天不老，情难绝

' 1.有5只猴子在海边发现 一堆桃子,决定第二天来平分.第二天清晨,第一只猴子最早来到,它左分右分分不开,就朝海里扔了一只,恰好可以分成5份,它拿上自己的一份走了.第 2,3,4,5只猴子也遇到同样的问题,采用了同样的方法,都是扔掉一只后,恰好可以分成5份.问这堆桃子至少有多少只？
我搜寻200000次了都没有找到答案


[e]
.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 已知, 整数型
.局部变量 值, 整数型
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型
.局部变量 d, 整数型
.局部变量 e, 整数型


值 ＝ 5
.计次循环首 (100000000, 值)
a ＝ (值 － 1) ＼ 5 ' a ＝ (值 － 1) ＼ 5
.如果 (a × 5 ＋ 1 ≠ 值)
已知 ＝ 0
.否则
已知 ＝ 1
.如果结束

b ＝ (值 － 1 － (值 － 1) ＼ 5) ＼ 5 ' b ＝ (值 － 1 － a) ＼ 5
.如果 (5 × b ＋ a ＋ 1 ≠ 值)
已知 ＝ 0
.否则
已知 ＝ 1
.如果结束

c ＝ (值 － 1 － (值 － 1 － (值 － 1) ＼ 5) ＼ 5 － (值 － 1) ＼ 5) ＼ 5 ' c ＝ (值 － 1 － b － a) ＼ 5
.如果 (5 × c ＋ a ＋ b ＋ 1 ≠ 值)
已知 ＝ 0
.否则
已知 ＝ 1
.如果结束

d ＝ (值 － 1 － (值 － 1 － (值 － 1) ＼ 5) ＼ 5 － (值 － 1) ＼ 5 － (值 － 1 － (值 － 1 － (值 － 1) ＼ 5) ＼ 5 － (值 － 1) ＼ 5) ＼ 5) ＼ 5 ' d ＝ (值 － 1 － b － a － c) ＼ 5
.如果 (5 × b ＋ a ＋ c ＋ d ＋ 1 ≠ 值)
已知 ＝ 0
.否则
已知 ＝ 1
.如果结束

e ＝ (值 － 1 － (值 － 1 － (值 － 1) ＼ 5) ＼ 5 － (值 － 1) ＼ 5 － (值 － 1 － (值 － 1 － (值 － 1) ＼ 5) ＼ 5 － (值 － 1) ＼ 5) ＼ 5 － (值 － 1 － (值 － 1 － (值 － 1) ＼ 5) ＼ 5 － (值 － 1) ＼ 5 － (值 － 1 － (值 － 1 － (值 － 1) ＼ 5) ＼ 5 － (值 － 1) ＼ 5) ＼ 5) ＼ 5) ＼ 5 ' e ＝ (值 － 1 － b － a － c － d) ＼ 5
.如果 (5 × e ＋ d ＋ a ＋ c ＋ b ＋ 1 ≠ 值)
已知 ＝ 0
.否则
已知 ＝ 1
.如果结束


.如果真 (已知 ＝ 1)
输出调试文本 (已知)
.如果真 (a ＋ b ＋ d ＋ e ＋ c ＋ 5 ＋ 4 × e ＝ 值)
信息框 (值, 0, )
.如果真结束


.如果真结束


.计次循环尾 ()



[/e]

提拉米苏god

好长。。。

凉冰粉

看见数学题就晕。。。