pascal7.0三位数排序老师出了这么一道题“输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。”请问谁会做啊

Question

pascal7.0三位数排序
老师出了这么一道题“输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。”
请问谁会做啊！！（注意：是turbo pascal 7.0啊！）。

Answer 1

program paixu;
var
a1,a2,a3,n:longint;
begin
readln(n);a1:=n mod 10;a2:=n div 10 mod 10;a3:=n div 100;
if a1 if a1 if a2 write(a1,a2,a3);
end.
大致是这样的。我没编译了，但是你可以试试
希望对你有帮助