pascal语言中，for循环的问题

来源：百度知道编辑：UC知道时间：2024/06/19 01:54:47

用for循环打印出那位大哥来帮帮忙
1
222
33333
4444444
555555555
1前面有4个空格
222前面3个
33333前面有2个
4444444前面1个
555555555前面没有空格

program ji;
var
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5-i do
write(' ');
for j:=1 to 2*i-1 do
write(i);
writeln;
end;
end.
一定要打分号！！

var i,j:integer;
begin
for i:=1 to 5 do begin
for j:=5-i downto 1 do write(' ');{输出前导空格}
for j:=1 to i*2+1 do write(i);{输出数字}
writeln;
end;
end.

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

var i,j:1..5;
begin
for i:=1 to 5 do begin
for j:=1 to 5-i do write(' '); {输出空格}
for j:=1 to 2*i-1 do write(i); {输出数字}
writeln;
end;
end.

var j,i,t:integer;
begin
for j:=1 to 5 do
begin
for i:=1 to 5-j do