PASCAL的一道题目，请写出程序!

来源：百度知道 编辑：UC知道 时间：2024/06/05 15:09:18
输入三个字符，然后按输入字符次序输出这三个字符，再输出每个字符的序号，最后按与输入字符相反的次序输出这三个字符。

请用PASCAL 7.0 写出该程序

var
a,b,c,d,e,f:longint;
begin
readln(a,b,c);
writeln(a,b,c);
d:=ord(a);e:=ord(b);f:=ord(c);
write(d,e,f);
write(c,b,a);
end.

var a,b,c:char;
begin
read(a,b,c);
writeln(a,' ',b,' ',c);
writeln(ord(a),' 'ord(b),' ',ord(c));
writeln(c,b,a);
end.

var
a,b,c:char;
begin
readln(a,b,c);
writeln(ord(a),' ',ord(b),' ',ord(c));
writeln(c,b,a);
end.
ord(a) 求出字符对应的序号

序号是指什么 1 2 3 还是ascall码
var
c1,c2,c3:char;
begin
read(c1,c2,c3);
writeln(c1,' ',c2,' ',c3);
writeln(ord(c1),' 'ord(c2),' ',ord(c3));
writeln(c3,c2,c1);
end.