果然是：高手一出手，便知有没有！
别人送我3个学习锦囊
1，实力派
2，偶像派
3，蛋黄派
我挑哪个好呢？
该死才注册几天的账号丢了密码，重新注册。。。
思路：该苹果的总数最小值是唯一的。
就是5的倍数于1，判断余数1是关键。
得出最后一次的总数就可以知道第一次的总数。
西门子840D
R1=1 总数的意思（总数从1个开始计算)
AA: 标签1
R2=R1-(R1-1)/5-1开始分
R3=R2-(R2-1)/5-1
R4=R3-(R3-1)/5-1
R5=R4-(R4-1)/5-1最后一个人分的总数
R1=R1+1 累加
R6=1 倍数
BB: 标签2
R7=R5-5*R6 对最后最后的总数进行减5的倍数
R6=R6+1 倍数累加
IF R7<1 GOTOB AA 对余数判断小于1 返回标签1
IF R7>1 GOTOB BB 对余数判断大于1返回标签2
M30
这个程序在机器上求答案（求 R 值），机器竟然报警位数不够。
所以先把程序发上来，向版主求证。。。
本帖最后由 dddqmq 于 2011-8-31 08:35 编辑
#1=1.
WHILE [#1] DO1
#2=1.
#3=5.
WHILE [#2 LE #3] DO2
#4=[#1-1]/5.
#5=FIX[#4]
IF [#4 NE #5] GOTO1
#2=#2+1
END2
N1
IF[#4 EQ #5] GOTO2
#1=#1+1
END1
N2
说一下个人的思路，拿一堆苹果5个人来分，先拿掉一个，如果分到一个整数就继续直到分完5次，如果还没有分到5次就出现分不到整数，总数加1在来分。一旦到第五个人分时还能得到整数个苹果，结束，
本帖最后由 jiangssli 于 2011-8-30 08:40 编辑
回复 13# dddqmq
第一个WHILE没有判断,怎么循环呢?
还有后面IF判断调准的NG应该改成NE吧!
回复 15# jiangssli
NG应该改NE，抱歉我写错了，第一个WHILE是一个死循环，只要#1不等于零就会执行，但我有用GOTO2跳出。
以后需再关注，现在先帮你顶一下
discuz.net/static/image/common/sigline.gif
加盟宽福量贩商城kuanfuhuo.com，创建自己的商圈，QQ1697404576
宽福商城，男装、女装、羽绒服，还有鲜花蛋糕送上门
kuanfuhuo.com/ImgUpload/2011072319584644_50x520.jpg宽福商城，{网店代理}，提供货源，一件代发
高手啊！！！
讲得有道理啊
回复zhousj225
呵呵，你没有理解到楼主的用意，虽然这道题可以用数学算出，但是他的要求是用宏程序实现 ...
wmj820303 发表于 2011-6-17 22:21 http://postp.net/images/common/back.gif
受益匪浅