不是VIP会员,不能显示答案

题目解答

题目:
program sx201604;
var a:array[1..6] of char;
i:integer;
procedure swap(var x,y:char);
var temp:char;
begin
temp:=x; x:=y; y:=temp;
end;
begin
for i:=1 to 6 do
a[i]:=chr(i*2+ord( 'A' ));
for i:=l to 3 do
swap(a[i],a[7-i]);
for i:=1 to 6 do write(a[i]);
end.
输出:MKIGEC
考点:
分析:
解答:
评论:
老师: