ac1003.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· PAS 代码 · 共 12 行

program tju1003;
var
  n,i,j:byte;
begin
  read(n);
  for i:=1 to n do begin
    for j:=1 to n-i do write(' ');
    for j:=1 to i*2-1 do write(chr(64+i));
    writeln;
  end;
end.