Question

pascal语言中，for循环的问题

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

Answer 1

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.
一定要打分号！！

Answer 2

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.

Answer 3

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.

Answer 4

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.

Answer 5

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

Answer 6

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