回 帖 发 新 帖 刷新版面

主题:aa

# # # # # # # # # # # # # # # 
  # # # # # # # # # # # # #
    # # # # # # # # # # #
      # # # # # # # # #
        # # # # # # #
          # # # # #
            # # #
              #

回复列表 (共1个回复)

沙发

const m=15;
var i,j:integer;
begin
  i:=0;
  repeat
    i:=i+1;
    for j:=1 to i-1 do write(' ');
    for j:=1 to m-2*(i-1) do write('#');
    writeln;
  until m-2*(i-1)=1;
end.

我来回复

您尚未登录,请登录后再回复。点此登录或注册