关于free pascal的问题(用for语句)

来源：百度知道 编辑：UC知道 时间：2024/09/22 04:27:52
A
ABA
ABCBA
ABCDCBA
…………
……………
…………………
ABCDEFGHIJKLMNOPQRSTUVWXWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWXYXWVUTSRQPONMLKJIHGFEDCBA
ABCDEFGHIJKLMNOPQRSTUVWXYZYXWVUTSRQPONMLKJIHGFEDCBA
A
ABA
ABCBA
ABCDCBA
…………
……………
…………………

program ss;
var
i,j,k:char;
begin
for i:='A' to 'Z' do
begin
for j:='A' to i do
write(j);
for k:=chr(ord(i)-1) downto 'A' do
write(k);
writeln;
end;
readln
end.

var
.....
begin
...
end.

你问什么？要题目还是要解决题目？我可以帮忙

你要问什么？