第1个回答 2010-11-07
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.
这个从题目意思出发,比较简明一些的程序,不需要用到字符串,希望能帮到楼主。
第2个回答 2010-11-07
program aaa;
var s:string; t:char;
begin
readln(s);
t:=s[1]; s[1]:=s[3]; s[3]:=t;
writeln(s);
end.本回答被提问者采纳
第3个回答 2010-11-07
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.
第4个回答 2010-11-07
var s:string;
tmp:char;
begin
readln(s);
tmp:=s[1];
s[1]:=s[3];
s[3]:=tmp;
writeln(s);
end.