KJ — 编程爱好者社区

主题：KJ

016565 [专家分：0] 发布于 2009-08-05 09:03:00

国王分钱前有若干份大儿子得一份加剩下的10分之1，二儿子得两份加剩下的10分之一，直至第i个儿子分i份，加剩下的10分之一每人钱数一样问有几个儿子，多少钱。

沙发

FFKK [专家分：1610] 发布于 2009-08-05 09:07:00

CLS
N=1
DO
N=N+1
A=N
FOR I=1 TO N
A=A-I-(A-I)/10
IF A<> INT(A) THEN EXIT FOR
IF A=0 THEN DO
NEXT I
LOOP
? I;(多少个儿子)
? N;(多少钱)

板凳

梦幻小樱 [专家分：140] 发布于 2009-08-07 13:55:00

CLS
N=1
DO
N=N+1
A=N
FOR I=1 TO N
A=A-I-(A-I)/10
IF A<> INT(A) THEN EXIT FOR
IF A=0 THEN DO
NEXT I
LOOP
? I;(多少个儿子)
? N;(多少钱)

3 楼

phile [专家分：2310] 发布于 2009-08-07 17:47:00

一楼与二楼程序一样？

4 楼

1054122 [专家分：750] 发布于 2009-08-13 14:56:00

[quote]一楼与二楼程序一样？[/quote]

是抄袭

5 楼

天天和和 [专家分：1420] 发布于 2009-08-14 22:50:00

FFKK你太厉害了，这题的程序会简化成这样太厉害了

6 楼

FFKK [专家分：1610] 发布于 2009-08-16 17:41:00

CLS
N=1
DO
N=N+1
A=N
FOR I=1 TO N+1
A=A-I-(A-I)/10
IF A<> INT(A) THEN EXIT FOR
IF A=0 THEN DO
NEXT I
LOOP
? I,N
这才是正确的

您尚未登录，请登录后再回复。点此登录或注册