exer3-5.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program e3_5(input,output);
var
 t,a,b,c:char;
begin
 writeln('input char');
 readln(a,b,c);
 if a>b then
   begin
    t:=a;
    a:=b;
    b:=t;
   end;
 if a>c then
   begin
   t:=a;
   a:=c;
   c:=t;
   end;
 if b>c then
   begin
    t:=b;
    b:=c;
    c:=t;
   end;

 writeln(a,b,c);
 readln(a)
 end.