作业帮 > 综合 > 作业

用PASCAL打印下列图形(急!)

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/07 12:06:48
用PASCAL打印下列图形(急!)
(有空格)1
(有空格)121
(有空格)12321
..
..
(有空格)123 ..898 ..321
用PASCAL打印下列图形(急!)
var
n,i,j:integer;
begin
readln(n); //n为行数
for i:=1 to n do begin
write('':n-i);
for j:=1 to i do write(j);
for j:=i-1 downto 1 do write(j);
writeln;
end;
end.
http://zhidao.baidu.com/question/373238168.html