cls
for a=1 to 6
for b=1 to 6
for c=1 to 6
for d=1 to 6
for e=1 to 6 
for f=1 to 6
if a+b+c+d+e+f<>21 or a*b*c*d*e*f<>720 then 1
if a+b+d=a+c+b and d+e+f=a+b+d and a+c+f=d+e+f then 2
2 print tab(10);a
goto 3
3 print tab(9);b;c
goto 4
4 print tab(8);d;e;f;
l=l+1
1 next f,e,d,c,b,a
print "l="l;
end

一定要给分呀

其实做的很不错
不会是抄书的吧？
怎么有那么多多余的GOTO的？

cls
for a=1 to 6
 for b=1 to 6
  for c=1 to 6
   for d=1 to 6
    for e=1 to 6
     for f=1 to 6
if a+b+d=a+c+f and a+b+d=d+e+f and a+c+f=d+e+f then
print tab(5);A
PRINT
PRINT TAB(3);d;" ";c
print
print tab(1);d;" ";e;" ";f
s=s+1
end if 
next f,e,d,c,b,a
print s
end