Question

1. Дано натуральное число n. Переставить его цифры так, чтобы образовалось минимальное число, записанное теми же цифрами.

Answer 1

Var
  n:string;
  t:char;
  i,j,k:integer;
begin
write('Число: ');
readln(n);
k:=length(n);
for i:=1 to k do
  for j:=i to k do
    if ord(n[j])<ord(n[i]) then
         begin
         t:=n[i];
         n[i]:=n[j];
         n[j]:=t;
         end;
writeln('Минимальное число: ',n);
end.