pascal求打印字母塔
答案:2 悬赏:50
解决时间 2021-02-21 19:42
- 提问者网友：書生途
- 2021-02-21 13:00
pascal求打印字母塔
最佳答案
- 二级知识专家网友：不如潦草
- 2021-02-21 14:12
var n,i,j:integer;
begin
readln(n);
for i:=1 to n do
begin
write('':n-i);
for j:=1-i to i-1 do
write(chr(65+abs(j)));
writeln;
end;
end.
begin
readln(n);
for i:=1 to n do
begin
write('':n-i);
for j:=1-i to i-1 do
write(chr(65+abs(j)));
writeln;
end;
end.
全部回答
- 1楼网友：西风乍起
- 2021-02-21 15:02
var a:string;i,j,n:integer;
begin
a:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
readln(n);
for i:=1 to n do
begin
for j:=i to n do write(' ');
for j:=i downto 1 do write(a[j]);
for j:=2 to i do write(a[j]);
writeln;
end;
end.
begin
a:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
readln(n);
for i:=1 to n do
begin
for j:=i to n do write(' ');
for j:=i downto 1 do write(a[j]);
for j:=2 to i do write(a[j]);
writeln;
end;
end.
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯