pascal编程打印下列图形,要快

发布网友发布时间：2024-10-12 08:23

我来回答

共1个回答

热心网友时间：2024-11-05 20:15

var i,j:longint;
begin
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
if (i=j) or (i+j=8) then write(1) else write(0);
if j<7 then write(' ');
end;
writeln;
end;
end.
你是不是少打一行0 1 0 0 0 1 0?

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

猜你喜欢

热门推荐

产品服务发展历程企业资讯企业文化关于我们加入我们联系我们网站导航网站律师

中国扫黄打非网

赣ICP备2023002352号-2

违法及侵权请联系：TEL:177 7030 7066 E-MAIL:11247931@qq.com 本站由北京市万商天勤律师事务所王兴未律师提供法律服务

pascal编程打印下列图形,要快

最新推荐

猜你喜欢

热门推荐