ac1009.pas

来自「同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料」· PAS 代码 · 共 14 行

program tju1009;
var
  n,i,j:byte;
begin
  repeat
    read(n);
    for i:=1 to n do
      for j:=i to n do begin
        write(j*(j+1) div 2-i+1);
        if j=n then writeln else write(' ');
      end;
  until seekeof;
end.