ac1001.pas

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

program tju1001;
var
  n,i:byte;
  c:char;
procedure printline(x:byte);
  var
    i:byte;
  begin
    for i:=1 to (n-x)*2 do write(' ');
    if x>1 then begin
      write(c);dec(c);
      for i:=1 to x*4-5 do write(' ');
    end;
    writeln(c);dec(c);
  end;
begin
  read(n);
  c:='Z';
  for i:=1 to n do printline(i);
  for i:=n-1 downto 1 do printline(i);
end.