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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/27 22:14:38
pascal空心的字母金字塔Description 输入一个大写的英文字母,输出一个空心的字母金字塔.Input 只有一行且只有一个大写英文字母Output 一个空心的大写英文字母金字塔.其中第一行的字母“A”在
xRN@|D B5S )v\lgkVӺeWl5Z[0s!NlvU|eيk> 7akO}N0Zm^qQ Kt_A+|E5bMCRi{L5F0%d#vBp5oGZjb.锯@3Uh4Vb"<20 4x2L<l "=wؔ((K`b)^ +\T3I2^CH|L&%C d&"_X"rDBB8 .4AH69ˏhʛ2

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!