13问答网 > 1.打印出下列图形 1 222 33333 4444444 555555555 2.用场宽控制打印出下列图形 1 2 3 4 5 pascal语言编写

1.打印出下列图形 1 222 33333 4444444 555555555 2.用场宽控制打印出下列图形 1 2 3 4 5 pascal语言编写

快一些1 222 33333 4444444555555555（1) 1 2 3 4 5

2025-05-09 13:19:46

推荐回答（3个）

回答1：

program exercise;
var i,j,k:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5-i do
write(' ');
for k:=1 to 2*i-1 do
write(chr(i+48));
writeln;
end;
end.
偶也是初学的，呵呵1

回答2：

1:
VAR
a,b,c,n,m:integer;
begin
for a:= 5 downto 1 do begin
for b:=a-1 downto 1 do write(' ');
for n:= (6-a)*2-1 downto 1 do write(6-a);
writeln;
end; end.
2:
var
a,b,c:integer;
begin
for a:=1 to 5 do begin
for b:= 1 to a do write(' ');
write(a);
writeln;
end;
end.
此题简单.....

回答3：

458475237