初学pascal

来源:百度知道 编辑:UC知道 时间:2024/09/22 10:32:48
怎么才能键入一个3位数,然后位置反着输出来?
例如:键入123 输出321

((x Mod 100) Mod 10) * 100 + (x Mod 100) - ((x Mod 100) Mod 10) + (x - (x Mod 100)) / 100

((x Mod 100) Mod 10) 取得个位的数字
(x - (x Mod 100)) / 100取得百位的数字
十位的不用动

PROGRAM aa;
VAR
a,i,j:integer;
BEGIN
readln(a);
b:=a mod 10 *100
b:=b+a div 100
a:=a-a div 100 *100
b:=b+a div 10 * 10;
writeln (b);
END.

program a;
var a:string;
begin
readln(a);
write(a[3],a[2],a[1]);
end.