作业帮pascal做幻方怎么做?1147:幻方时间限制:1 Sec 内存限制:64 MB提交:149 解决:98[提交][状态][讨论版]我们称下面这个 3×3 矩阵为 3 阶幻方,是因为无论是横行、竖行、斜行他们三个数的和都是相等的,
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 11:50:20
![pascal做幻方怎么做?1147:幻方时间限制:1 Sec 内存限制:64 MB提交:149 解决:98[提交][状态][讨论版]我们称下面这个 3×3 矩阵为 3 阶幻方,是因为无论是横行、竖行、斜行他们三个数的和都是相等的,](/uploads/image/z/7035459-51-9.jpg?t=pascal%E5%81%9A%E5%B9%BB%E6%96%B9%E6%80%8E%E4%B9%88%E5%81%9A%3F1147%3A%E5%B9%BB%E6%96%B9%E6%97%B6%E9%97%B4%E9%99%90%E5%88%B6%3A1+Sec++%E5%86%85%E5%AD%98%E9%99%90%E5%88%B6%3A64+MB%E6%8F%90%E4%BA%A4%3A149++%E8%A7%A3%E5%86%B3%3A98%5B%E6%8F%90%E4%BA%A4%5D%5B%E7%8A%B6%E6%80%81%5D%5B%E8%AE%A8%E8%AE%BA%E7%89%88%5D%E6%88%91%E4%BB%AC%E7%A7%B0%E4%B8%8B%E9%9D%A2%E8%BF%99%E4%B8%AA+3%C3%973+%E7%9F%A9%E9%98%B5%E4%B8%BA+3+%E9%98%B6%E5%B9%BB%E6%96%B9%2C%E6%98%AF%E5%9B%A0%E4%B8%BA%E6%97%A0%E8%AE%BA%E6%98%AF%E6%A8%AA%E8%A1%8C%E3%80%81%E7%AB%96%E8%A1%8C%E3%80%81%E6%96%9C%E8%A1%8C%E4%BB%96%E4%BB%AC%E4%B8%89%E4%B8%AA%E6%95%B0%E7%9A%84%E5%92%8C%E9%83%BD%E6%98%AF%E7%9B%B8%E7%AD%89%E7%9A%84%2C)
pascal做幻方怎么做?1147:幻方时间限制:1 Sec 内存限制:64 MB提交:149 解决:98[提交][状态][讨论版]我们称下面这个 3×3 矩阵为 3 阶幻方,是因为无论是横行、竖行、斜行他们三个数的和都是相等的,
pascal做幻方怎么做?
1147:幻方
时间限制:1 Sec 内存限制:
64 MB
提交:149 解决:
98
[提交][状态][讨论版]
我们称下面这个 3×3 矩阵为 3 阶幻方,是因为无论是横行、竖行、斜行他们三个数的和都是相等的,均为 15.
我们用一行数字也可以表示唯一的一个 3 阶幻方,即一行接一行从左向右的表示,则上述的幻方可表示为：8,1,6,3,5,7,4,9,2 现提供一个缺少某一个数字的
3 阶幻方,请确定这个缺少的数字是多少?在输入中,缺少的数字用-1 表示,所有的数字用空格隔开.例如：8 1 6 3 5 -1 4 9 2.
输入
8 1 6 3 5 -1 4 9 2
输出
7 与题目中描述的幻方相同.)
样例输入 Copy
5 15 13 19 11 3 9 7 -1
样例输出 Copy
17
提示
【数据范围】：
所有 10 组数据中,每组输入都是 9 个数(用空格隔开),并且其中 8 个数是不超过 100 的正整数,-1
代表幻方中缺少的数.
来源
pascal做幻方怎么做?1147:幻方时间限制:1 Sec 内存限制:64 MB提交:149 解决:98[提交][状态][讨论版]我们称下面这个 3×3 矩阵为 3 阶幻方,是因为无论是横行、竖行、斜行他们三个数的和都是相等的,
var
a:array[1..9]of longint;
i,n:longint;
begin
for i:=1 to 9 do begin
read(a[i]);
if a[i]=-1 then n:=i;
end;
case n of
1:write(a[4]+a[5]+a[6]-a[2]-a[3]);
2:write(a[4]+a[5]+a[6]-a[1]-a[3]);
3:write(a[4]+a[5]+a[6]-a[2]-a[1]);
4:write(a[1]+a[2]+a[3]-a[5]-a[6]);
5:write(a[1]+a[2]+a[3]-a[4]-a[6]);
6:write(a[1]+a[2]+a[3]-a[4]-a[5]);
7:write(a[1]+a[2]+a[3]-a[9]-a[8]);
8:write(a[1]+a[2]+a[3]-a[7]-a[9]);
9:write(a[1]+a[2]+a[3]-a[7]-a[8]);
end;
end.