作业帮 > 综合 > 作业

pascal输出如下图形

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/19 20:29:27
pascal输出如下图形
Input
输入一个数n
Output
输出对应的图形
Sample Input
3
Sample Output
A
ABA
ABCBA
var n,i,j:longint;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
for j:=1 to i do write(chr(ord('A')+j-1));
for j:=i-1 downto 1 do write(chr(ord('A')+j-1));
writeln;
end;
end.