PASCAL循环语句题

program xin;
var i,j:integer;
begin
for i:=1 to 10 do
begin
write(' ':15-i);
for j:=1 to 2*i-1 do
write('*');
writeln;
end;
end.

考虑循环变量i每次是+1或-1,j也是+1或-1,然后通过比例\大小\规模去做就行了,主要是找规律

好BT啊( ⊙ o ⊙ )！
注意找规律就行了
我就不想了O(∩_∩)O~

program xhyq;
var i,j:integer;
begin
for i:=1 to 10 do
begin
write(' ':15-i);
for j:=1 to 2*i-1 do
write('*');
writeln;
end;
end.