今晚就要！！！急！！！

program asdf;
var
i,j:integer;
s:string;
t:char;
begin
readln(s);
for i:=1 to length(s) do
for j:=i+1 to length(s) do
if s[i]>s[j] then begin
t:=s[j];
s[j]:=s[i];
s[i]:=t;
end;
writeln(s);
end.
希望不晚

语言呢？？

字符(数字与小写字母)在ASCⅡ码表可以查出来。在编程中，使用ASC（）函数直接得到数值。采取排序输出就可以了。没什么难度。至于排序的方法，你看一看《数据结构》，书里有很多种方法。自己选择。

用pascal。。。！
哥哥你怎么没打清楚。。！高手们帮帮忙啊。。！

n=inputbox("请您输入","提示","5AA是@##中S4我3t%^^$grf国sg人f")
l=len(n)
redim s(l-1)
for i=0 to l-1
s(i)=asc(mid(n,i+1,1))
next
call paixu
for i=o to l-1
sn=sn & chr(s(i))
next
msgbox sn,4096,"排序结果"
sub paixu()
for i=0 to l-1
for j=i+1 t