Question

PASCAL编程

输出一下整列：
1 2 3 4 5
6 7 8 9
10 11 12
13 14
15
快！！！
不要用土办法！！！

Answer 1

这个很简单，两个循环就可以了，我想行末应该不能有多余空格吧，程序如下：
var i,j,k:longin;
begin
k:=0;
for i:=5 downto 1 do
begin
for j:=1 to i-1 do
begin
k:=k+1;
write(k,' ');
end;
k:=k+1;writeln(k);
end;
end.

Answer 2

var i,j,k:longint;
begin
k:=0;
for i:=5 downto 1 do
begin
for j:=1 to i do
begin
inc(k);
write(k,' ');
end;
writeln;
end;
end.

Answer 3

var
i,j,k:longint;
begin
k:=0;
for i:=5 downto 1 do
begin
for j:=1 to i do
begin
k:=k+1;
write(k:4);
end;
writeln;
end;
end.
还有，您所谓的土办法是不是指：
begin
writeln('1 2 3 4 5');
writeln('6 7 8 9');
writeln('10 11 12');
writeln('13 14');
writeln('15');
end.
是不是呐？？

追问

是

追答

啊哦

Answer 4

两个循环不就搞定了吗？