杭州交通信息网快用下载ios:pascal的题目
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/14 07:54:46
输出“字母塔”。例如：输入C，则输出：
A
ABC
ABCBA
ABCDCBA
A
ABC
ABCBA
ABCDCBA
Var
a,b,d:Char;
Begin
Read(a);
a:=Succ(a);
If a In ['A'..'Z'] Then
For b:='A' To a Do
Begin
For d:='A' To b Do
Write(d);
For d:=Chr(Ord(b)-1) Downto 'A' Do
Write(d);
Writeln;
End;
If a In ['a'..'z'] Then
For b:='a' To a Do
Begin
Write(' ':c);
c:=c-1;
For d:='a' To b Do
Write(d);
For d:=Chr(Ord(b)-1) Downto 'a' Do
Write(d);
Writeln;
End;
End.