求由整数a的各位数字构成的最大整数.free pascal

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 05:38:44

求由整数a的各位数字构成的最大整数.free pascal
求由整数a的各位数字构成的最大整数.
free pascal

求由整数a的各位数字构成的最大整数.free pascal
var
a:string;
s:array[1..10000] of longint;
i,j:longint;
begin
read(a);
for i:=1 to length(a) do
s[i]:=ord(a[i]-48);
for i:=1 to ;ength(a)-1 do
for j:=1 to length(a)-i do
begin
if s[j]