Pascal中，输入一个三位数，将它倒序输出。

var
st:string;
i:integer;
begin
readln(st);
while st[length(st)]='0' do delete(st,length(st),1);
for i:=length(st) downto 1 do
write(st[i]);
end.

var a:array[1..10] of integer;
n,i:integer;
begin read(n);
a[1]:=n mod 10;
a[2]:=n div 10 mod 10;
a[3]:=n div 10;
for i:=1 to 3 do write(a[i]);
end.

var a:integer;
begin
readln(a);
writeln(a mod 10,a div 10 mod 10,a div 100);
readln;
end.

var s:string;
begin
readln(s);
writeln(s[3],s[2],s[1]);
end.

程序以简单实用至上!

var a:integer;
begin
readln(a);
if a mod 10<>0 then write(a mod 10)
write(a div 10 mod 10,a div 100);
end.

var a, b, c: char;
begin
read(a, b, c);
write(c, b, a);
end.