作业帮将1—9这九个数分别填入圆圈中,要求每条直线上三个数之和都相等,编程打印输出各种填法.二、将1—7这七个数分别填入圆圈中,要求每条直线上三个数之和都等于12,编程打印输出各种填法.如
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 01:41:34
将1—9这九个数分别填入圆圈中,要求每条直线上三个数之和都相等,编程打印输出各种填法.二、将1—7这七个数分别填入圆圈中,要求每条直线上三个数之和都等于12,编程打印输出各种填法.如
将1—9这九个数分别填入圆圈中,要求每条直线上三个数之和都相等,编程打印输出各种填法.
二、将1—7这七个数分别填入圆圈中,要求每条直线上三个数之和都等于12,编程打印输出各种填法.如果每条直线上三个数之和都等于10,编程打印输出各种填法.(forget it)(add it)
Pascal
不用输出圆圈,只要打出方案.
将1—9这九个数分别填入圆圈中,要求每条直线上三个数之和都相等,编程打印输出各种填法.二、将1—7这七个数分别填入圆圈中,要求每条直线上三个数之和都等于12,编程打印输出各种填法.如
Program example5_27;
var
s,n,a,b,c,d,e,f : integer;
begin
n := 0;
for a := 1 to 6 do
for b := 1 to 6 do
if b a then
for c := 1 to 6 do
if (c a) and (c b) then
for d := 1 to 6 do
if (d a) and (d b) and (d c) then
for e := 1 to 6 do
if (e a) and (e b) and (e c) and (e d) then
begin
f := 21-a-b-c-d-e;
s := a+b+c;
if (c+d+e = s) and (a+f+e = s) then begin
n := n+1;
writeln('No.',n:2,' : ',a:4);
writeln(b:10,f:4);
writeln(c:8,d:4,e:4);
readln;
end;
end;
end.