将1—9这九个数分别填入圆圈中,要求每条直线上三个数之和都相等,编程打印输出各种填法.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/28 08:04:43
将1—9这九个数分别填入圆圈中,要求每条直线上三个数之和都相等,编程打印输出各种填法.
二、将1—7这七个数分别填入圆圈中,要求每条直线上三个数之和都等于12,编程打印输出各种填法.如果每条直线上三个数之和都等于10,编程打印输出各种填法.(forget it)(add it)
Pascal
不用输出圆圈,只要打出方案.
二、将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.
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.
将1—9这九个数分别填入圆圈中,要求每条直线上三个数之和都相等,编程打印输出各种填法.
将1—9这九个数分别填入圆圈中,要求每条直线上三个数之和都相等
将1—9这九个数分别填入圆圈中,要求每条直线上三个数之和都相等,我看了你的做过,说有32中做法,
把十分之一~十分之九这九个数分别填入下图的圆圈里,使每条直线上的五个数之和都相等.
如题,将1-9九个数字填入圆圈中,使每条直线上的三个数相加等于15,每个数字填一次.
将1234567这七个数字分别填入图中圆圈里,使每个圆圈上和每条直线上的三个数字之和都相等。
将1-9这九个数填入下面的圆圈内,使得每个三角形和直线上的三个数之和相等.
把1 9九个数字填入 圆圈,使每条直线上数的和相等
将1—9这九个自然数分别填入图中九个小三角形中,要求靠近三角形每条边上五个数的和相等,并尽可能地大.这五个数之和最大是多
将123456六个数填入圆圈里,使每条直线上的三个数之和相等,共有几种填法?
(1)将0.01,0.02.这九个数分别填入9个圆圈内,是每条边上的4个数之和相等
将1-9这九个连续自然数分别填入图中的圆圈里,是每条边上的四个数之和都等于19