pascal打印数字图形读入一个整数n(n
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 22:40:17
![pascal打印数字图形读入一个整数n(n](/uploads/image/z/3150241-25-1.jpg?t=pascal%E6%89%93%E5%8D%B0%E6%95%B0%E5%AD%97%E5%9B%BE%E5%BD%A2%E8%AF%BB%E5%85%A5%E4%B8%80%E4%B8%AA%E6%95%B4%E6%95%B0n%EF%BC%88n)
pascal打印数字图形读入一个整数n(n
pascal打印数字图形
读入一个整数n(n
pascal打印数字图形读入一个整数n(n
var
n,i,j:longint;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to i-1 do write('':5);
for j:=i to n do write(j-i+1:5);
writeln;
end;
end.