free PASCAL作业题（高手快进,明天要交！！！！）！！！！！！！

Question

输入1个3位数，将它的个位和百位对换再输出。
如：
输入：456
输出：654
注：输入时数字之间不能有空格。

Answer 1

program shuchu;
var
n,a,b,s:integer;
begin
readln(n);
a:=n mod 10; (个位)
n:=n div 10;
b:=n mod 10;（十位）
n:=n div 10;（百位）
s:=a*100+b*10+n;
writeln(s);
end.
这个从题目意思出发，比较简明一些的程序，不需要用到字符串，希望能帮到楼主。

Answer 2

program aaa;
var s:string; t:char;
begin
readln(s);
t:=s[1]; s[1]:=s[3]; s[3]:=t;
writeln(s);
end.本回答被提问者采纳

Answer 3

var
n,a,b,c:integer;
begin
a:=n mod 10;
n:=n div 10;
b:=n mod 10;
c:=n div 10;
write(c*100+b*10+c);
end.

Answer 4

var s:string;
tmp:char;
begin
readln(s);
tmp:=s[1];
s[1]:=s[3];
s[3]:=tmp;
writeln(s);
end.