PASCAL测试题

16.
program sd;
var i,j:integer;
begin
for i:=4 to 9 do
begin
for j:=9 downto i do
write(j);
writeln;
end;
end.
17.
var i,j:integer;
begin
for i:=9 downto 6 do
begin
write(' ':10-i);
write(i);
write(' ':i-3);
if i<>6 then write(i);
writeln;
end;
end.

最简单的是直接用输出语句输出，当然这肯定不是这个题目的意思，用循环输出的程序代码如下（花括号力的是注解，不用输入）：
16.
program t16;
var
i,j,k:integer;
begin
k:=9;
for i:=1 to 6 do
begin
for j:=1 to 7-i do
begin
write(k);
k:=k-1;
end;{of for j}
writeln;
k:=9;
end;{of for i}
end.{of program}

17.
program t17;
var
i,j,k:integer;
begin
k:=9;
for i:=1 to 4 do
begin
for j:=1 to i-1 do
write(' ');
write(k);
for j:=1 to 2*(4-i)-1 do
write(' ');
writeln(k);
end;{of for i}
end.