作业帮 > 综合 > 作业

将1—9这九个数分别填入圆圈中,要求每条直线上三个数之和都相等,编程打印输出各种填法.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/28 08:04:43
将1—9这九个数分别填入圆圈中,要求每条直线上三个数之和都相等,编程打印输出各种填法.
二、将1—7这七个数分别填入圆圈中,要求每条直线上三个数之和都等于12,编程打印输出各种填法.如果每条直线上三个数之和都等于10,编程打印输出各种填法.(forget it)(add it)
Pascal
不用输出圆圈,只要打出方案.
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.