只写关键部分：
procedure Q1();
var i:integer;
j:integer;
begin
for i:=0 to 3 do
begin
for j:=0 to i do{打印空格}
write(" ");
writeln("*****");
end
end
procedure Q2();
var i:integer;
j:integer;
begin
for i:=0 to 3 do{打印0~3行}
begin
for j:=0 to 3-i do{打印空格}
write(" ");
for j:=0 to i do
writeln("* ");
end
end
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024