这是三的代码

一的代码

好像@大佬

2：
基本版：
var a,k,i:integer;{还是开小点吧}
begin
readln(a);
for i:=1 to 3 do
begin
k:=a mod 10; //求末尾数
a:=a div 10; //把末尾数去掉
write(k);
end;
end.
字符串：
var i:integer;{还是开小点吧}
a:string;
begi
readln(a);
for i:=length(a) downto 1 do
write(a[i]);
end.

dd

看下面调试框有彩蛋

var
i,j,k,n:longint;
begin
readln(i);
j:=i div 100;
k:=i div 10 mod 10;
n:=i mod 10;
writeln(n,k,j);
end.
第二题