我用的是pascal。这些内容老师还没教到，不想问老师，于是……
问题1、
输入三个字符，然后按输入字符次序输入这三个字符，并输出每个字符的序号，最后按与输入字符相反的次序输出这三个字符。（求序号用ORD函数）

我的看法：这题主要不明白的是：“求序号用ORD函数”这个句子，如何才能用ORD函数求出序号？我写的是：
program exe_1;
  var a,b,c:real;
  begin
    writeln('input:a,b,c');
    readln(a,b,c);
    ......
后面就不懂写了……赐教
问题2、
输入三个正整数，若能用这三个数作为边长组成三角形，就计算并输出该三角形的面积，否则就输出can't。
我的看法：如果仅仅知道三角形的三条边，在不知道高或角度或是直角三角形的情况下，如何算出三角形的面积？我写的是：
program exe_2;
const
  pi=3.14  
  var a,b,c,s:integer;
  writeln('input a,b,c');
  readln(a,b,c);
  if (a+b>c)and(a+c>b)and(b+c>a) then wrietln(………）
eles writeln('can't');
readln;
end.
省略号不懂写了……同样请赐教……
问题三、
输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入 213，重新排列可得到尽可能大的三位数是 321。
我请教了下朋友，他写得非常麻烦，而且不知道对不对：
program exe_3;
  var a,b,c,s:integer;
  begin
    write('into a,b,c=');//abc三数请隔开（注解）
    redln(a,b,c);
    if (a>b)and(a>c) then write(a);
    if (b>a)and(b>c) then write(b);
    if (c>a)and(c>b) then write(c);
    if (a<b)and(a>c)or(a<c)and(a>b) then write(a);
    if (b<a)and(b>c)or(b<c)and(b>a) then write(b);
    if (c<a)and(c>b)or(c<b)and(c>a) then write(a);
    if (a<b)and(a<c) then write (a);
    if (b<a)and(b<c) then write (b);
    if (c<a)and(c<b) then write (c);
readln;
end.

他说：它主要是通过把三位数拆分成三个数值，然后通过"write"不换行的特点，把三个数值逐一表现出来，而我则认为倘若这样，是大不可能是标准答案……于是求正解，求完正解完后，就去扁我朋友……

总而言之：拜托了！