主题：50分蛇形方正（正的和反的）
小勇士来了
[专家分：220] 发布于 2010-07-23 13:16:00
求求你了，
帮帮我吧！！！！
回复列表 （共5个回复）
沙发
小勇士来了2 [专家分：850] 发布于 2010-07-23 13:17:00
我知道一半的
板凳
小勇士来了2 [专家分：850] 发布于 2010-07-23 13:18:00
var a:array[1..30,1..30] of integer;
n,i,h,j,k:integer;
begin
readln(n);k:=0;
for i:=1 to n do
begin
j:=i;h:=1;
while j>0 do
begin
k:=k+1;a[h,j]:=k;
h:=h+1;j:=j-1;
end;
end;
for i:=1 to n do
begin
for j:=1 to n+1-i do write(a[i,j]:4);
writeln;
end;
end.
3 楼
小勇士来了2 [专家分：850] 发布于 2010-07-23 13:18:00
我不会全的
4 楼
小勇士来了2 [专家分：850] 发布于 2010-07-23 13:18:00
这或许对你有帮助
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 50分蛇形方正（正的和反的）