PASCAL打印星号三角形
发布网友
发布时间:2024-12-04 05:52
我来回答
共1个回答
热心网友
时间:2024-12-15 07:06
你的图太小了
看看都看不清
var i,j,n:longint;
begin
readln(n);
for j:=1 to n do
begin
for i:=1 to n-j do write(' ');
for i:=1 to j*2-1 do write('*');
for i:=1 to (n-j)*2 do write(' ');
for i:=1 to j*2-1 do write('*');
for i:=1 to (n-j)*2 do write(' ');
for i:=1 to j*2-1 do write('*');
writeln;
end;
end.
好不容易码的....