pascal问题：字母塔

level 1

qn_121937754 楼主

输出： A A B C A B C D A B C D E …… A B C D E……Z

2007年08月15日 11点08分 1

level 1

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.

2017年06月19日 13点06分 2