来帮忙做几个PASCAL的题 输入一个三位数的整数 ，将数字位置重新排列，组成一个尽可大的三位数。

还有一个 就是分糖的问题。
一共五位朋友 第一位送给各位糖 使每个人的个数在原来的基础上翻了一倍 ，第二位按照第一位的方法分 ，然后第三位按照第二位的方法 ，其他的人也用这个方法 ，分完了以后 每个人的糖块都恰好32块 ，问原来各位好友的糖块分别是多少？

分糖的问题可以用倒推法，如果要用程序，代码如下：
program aa;
var a,b,c,d,e:integer;
begin
a:=32;b:=32;c:=32;d:=32;e:=32;
e:=e+a div 2+b div 2+c div 2+d div 2;
a:=a div 2;
b:=b div 2;
c:=c div 2;
d:=d div 2;
d:=d+a div 2+b div 2+c div 2+e div 2;
a:=a div 2;
b:=b div 2;
c:=c div 2;
e:=e div 2;
c:=c+a div 2+b div 2+d div 2+e div 2;
a:=a div 2;
b:=b div 2;
d:=d div 2;
e:=e div 2;
b:=b+a div 2+c div 2+d div 2+e div 2;
a:=a+b div 2+c div 2+d div 2+e div 2;
b:=b div 2;
c:=c div 2;
d:=d div 2;
e:=e div 2;
writeln('a=',a,' b=',b,' c=',c,' d=',d,' e=',e);
end.

输入结果：a=121 b=41 c=42 d=22 e=12

编一个程序，使售货员只要从键盘输入货物的代码及重量，计算机便能显示货物 货物的代码和重量是多少？

货物的代码和重量是多少？ 如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！ vaela

var a,b,c,d:integer; begin readln(a); b:=a div 100; c:=a div 10 mod 10; d:=a mod 10; writeln(d,c,b); end.输入一个三位数的整数将数字位置重新排列,我只知道一个

if(b>=c)and(c>=a)then writeln(b,c,a>; ‘>’应该是‘）’； 最后一行 writeln(a,b,a); 应该是（c,b,a）; 倒数第二行 的readln 可以删去。 求采纳