pascal问题 编程打印出如下图案： 1 222 33333 4444444 555555555

Question

编程打印出如下图案：
10.编程打印出如下图案：
1
222
33333
4444444
555555555

Answer 1

找一下规律即可，用for循环，共有5行，第i行从6-i列开始，到4+i为止
var i,j,k:longint;
begin
for i:=1 to 5 do
begin
if i<>5 then for j:=1 to 5-i do write(' ');{输出空格}
for j:=6-i to 4+i do{输出数字}
write(i);
writeln
end
end.

Answer 2

for(int i=1;i<6;i++)
{
for(j=1;j<2*i;j++)
{
print(i);
}
}

Answer 3

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