Nhập vào một chuỗi (chỉ gồm số) Sắp xếp chuỗi giảm dần (pascal) Ví dụ: S = 36591 In ra 96531
1 câu trả lời
uses crt;
var s:string; i,j:longint; t:char;
begin
clrscr;
write('S= ');readln(s);
for i:=1 to length(s)-1 do
for j:=i+1 to length(s) do
if s[i]>s[j] then
begin t:=s[i]; s[i]:=s[j]; s[j]:=t; end;
writeln(s);
readln
end.
