2.8 输入三个字符,然后按输入字符次序输出这三个字符,再输出每个字符的序号,最后按与输入字符相反的次序输出这三个字符。
快啊
var
i:integer;
k,l:char;
a:array[1..3] of char;
begin
for i:=1 to 3 do
begin
readln(k);
a[i]:=k;l:=k;
writeln(l);
end;
for i:=1 to 3 do
write(a[i],' ',i,' ');
for i:=3 downto 1 do
write(a[i],' ');
end.
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息