program p1009;var a:array[1..100,1..100] of integer; w,j,i,n,x,y:integer; procedure print; begin inc(w); a[x,y]:=w; dec(x);inc(y); end;begin repeat readln(n);w:=0; for i:=1 to n do begin x:=i;y:=1; for j:=1 to i do print; end; for i:=1 to n do begin for j:=1 to n-i+1 do begin write(a[i,j]); if j+i<>n+1 then write(' '); end; writeln; end; until seekeof;end.

蛇行矩阵Time Limit:1s Memory Limit:1000k Total Submit:8344 Accepted:3211 下载样例程序(PE) --------------------------------------------------------------------------------Problem蛇形矩阵是由1开始的自然数依次排列成的一个矩阵上三角形。 Input本题有多组数据，每组数据由一个正整数N组成。（N不大于100） Output对于每一组数据，输出一个N行的蛇形矩阵。两组输出之间不要额外的空行。 矩阵三角中同一行的数字用一个空格分开。行尾不要多余的空格。 Sample Input5Sample Output1 3 6 10 152 5 9 144 8 137 1211