回 帖 发 新 帖 刷新版面

主题:请大家帮个忙

请大家帮个忙:
    把自然数1~6分别填入图中的每个圆圈中,使这个三角形每边上的三个数之和都相等,请打印出所以的填法。
        A
    B        F
C        D       E

谢谢各位!
[em18]

回复列表 (共1个回复)

沙发

var 
i,k,j,h,g,f:integer;
begin
for i:=1 to 6 do
for k:=1 to 6 do
for j:=1 to 6 do
for h:=1 to 6 do
for g:=1 to 6 do
for f:=1 to 6 do
begin
if (i+k+j=j+h+g) and (j+h+g=g+f+i) then
write(i,' ',k,' ',j,' ',h,' ',g,' ',f);
end;
end.

我来回复

您尚未登录,请登录后再回复。点此登录或注册