n,k,i,j,t:integer;
begin
readln(s);
n:=length(s);
k:=1;
for i:=1 to n do
if s='0'...'9'then
begin
a[k]:=ord(s)-48;
k:=k+1;
end;
k:=k-1;
for i:=1 to k do
for j:=i+1 to k do
if a>a[j] then
begin
t:=a;
a:=a[j];
a[j]:=t;
end;
for i:=1 to k do write(a[k]);
readln;
end.
这一题要读入一个字符串,将所有的数字字符提取出来,然后进行排序,输出。
输入示例
a#1}324/\5
输出示例
12345
我不知道我编的错在哪了,反正不对,帮忙改好,好了坚决加分。
好了program a1;var s:string;
a:array[1..10000]of integer;
n,k,i,j,t:integer;beginreadln(s);n:=length(s);k:=1;for i:=1 to n do
if(s>='0')and(s<='9')then
begin
a[k]:=ord(s)-48;
k:=k+1;
end;k:=k-1;for i:=1 to k-1 do
for j:=i+1 to k do
if...