用 9 个字母ABCDEFGHI 分别表示 1-9 阿拉伯数码中的某一个(没有重复).
(1) 当D=4时,下列加法算式成立,且被加数 ABCD 和加数 EFGD 均是3的倍数,编程求这几个字母分别代表几?
(2) 当D=8时,有没有符合要求的解答,若有输出各个字母分别代表几; 若没有则
输出 "NO".
A B C D
+ E F G D
-------------
H E I H

1楼的,你真是卑鄙,这次是我没长眼睛.下次你一定逃不出我的法眼!!!

123

CLS
DIM a(9): t=1: s=0: x$(1) = "D=4": x$(2) = "D=8"
FOR i = 1 TO 9
s = s + i: t = t * i
NEXT i
FOR w = 1 TO 2
READ d: a(4) = d
k = 0: PRINT "("; w; ") "; x$(w)
FOR a = 1 TO 7: a(1) = a
FOR b = 1 TO 9: a(2) = b
FOR c = 1 TO 9: a(3) = c
p = 2 * d \ 10: h = 2 * d MOD 10: a(8) = h
FOR e = 6 - a - 1 TO 8 - a: a(5) = e
FOR f = 1 TO 9: a(6) = f
FOR g = 1 TO 9: a(7) = g
i = c + g + p: a(9) = i
IF a + b + c + d + e + f + g + h + i <> s THEN 10
IF a * b * c * d * e * f * g * h * i <> t THEN 10
x = 1000 * a + 100 * b + 10 * c + d
y = 1000 * e + 100 * f + 10 * g + d
z = 1000 * h + 100 * e + 10 * i + h
IF x + y <> z THEN 10
IF w=1 AND (x / 3 <> x \ 3 OR y / 3 <> y \ 3) THEN 10
k = k + 1
FOR v = 1 TO 9
PRINT CHR$(64 + v); "="; a(v); " ";
NEXT v: PRINT : GOTO 20
10 NEXT g, f, e, c, b, a
PRINT
20 NEXT w
IF k = 0 THEN PRINT "NO"
END
DATA 4,8 

小精灵LS你为什么把程序修改成123了,下一次我不会给你加分了!气死我了!!气愤!!!气愤!!!!气愤!!!!!超气愤!!!!!!