pascal空心的字母金字塔Description 输入一个大写的英文字母,输出一个空心的字母金字塔.Input 只有一行且只有一个大写英文字母Output 一个空心的大写英文字母金字塔.其中第一行的字母“A”在

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/22 16:14:19
pascal空心的字母金字塔Description输入一个大写的英文字母,输出一个空心的字母金字塔.Input只有一行且只有一个大写英文字母Output一个空心的大写英文字母金字塔.其中第一行的字母“

pascal空心的字母金字塔Description 输入一个大写的英文字母,输出一个空心的字母金字塔.Input 只有一行且只有一个大写英文字母Output 一个空心的大写英文字母金字塔.其中第一行的字母“A”在
pascal空心的字母金字塔
Description
输入一个大写的英文字母,输出一个空心的字母金字塔.
Input
只有一行且只有一个大写英文字母
Output
一个空心的大写英文字母金字塔.
其中第一行的字母“A”在第40列.
Sample Input
E
Sample Output
A
B B
C C
D D
EEEEEEEEE
Source
基础题

pascal空心的字母金字塔Description 输入一个大写的英文字母,输出一个空心的字母金字塔.Input 只有一行且只有一个大写英文字母Output 一个空心的大写英文字母金字塔.其中第一行的字母“A”在
var
ch,i:char;
kg,ck,j:integer;
begin
read(ch);ck:=40;kg:=-1;
for i:='A' to chr(ord(ch)-1) do
begin
write(i:ck);
dec(ck);
for j:=1 to kg do
write(' ');
inc(kg,2);
if i'A' then
write(i);
writeln;
end;
write(ch:ck);
for j:=2 to kg+2 do
write(ch);
end.
AC!