打印字母以及数字塔 pascal

来源：百度知道 编辑：UC知道 时间：2024/06/22 02:33:30
1.输入C打印
A
ABA
ABCBA
ABCDCBA
有谁能帮帮我！！！！！！！！！！
2.打印数字踏
9
999
88888
8888888
777777777
77777777777
6666666666666
666666666666666
55555555555555555
5555555555555555555
44444444444444444
444444444444444
3333333333333
33333333333
222222222
2222222
11111
111
0
帮帮我！！！！！！！！！！！！跪求！！！！！！！！！
要PASCAL的！！！！！！！！！！

行首有没有空格?没有的话:
1.
program e1;
var
ch, ch1, ch2:char;
begin
readln(ch);
for ch1:='A' to chr(ord(ch)+1) do begin
for ch2:='A' to ch1 do write(ch2);
for ch2:=chr(ord(ch1)-1) downto 'A' do write(ch2);
writeln;
end;
end.
2.
program e2;
var
i,j,k:integer;
begin
k:=1;
for i:=9 downto 5 do begin
for j:=1 to k do write(i);
writeln;
k:=k+2;
for j:=1 to k do write(i);
writeln;
k:=k+2;
end;
k:=17;
for i:=4 downto 1 do begin
for j:=1 to k do write(i);
writeln;
k:=k-2;
for j:=1 to k do write(i);
writeln;
k:=k-2;
end;
writeln(0);
end.
有的话:
1.
program e1;
var
i:integer;
ch, ch1, ch2:char;
begin
readln(ch);
for ch1:='A' to chr(ord(ch)+1) do begin