Переставить цифры числа так, чтобы образовалось наименьшее число,записанное теми же цифрами — Pascal(Паскаль)

{Переставить цифры числа так, чтобы образовалось наименьшее число,
 записанное теми же цифрами}
program borlpasc;
var n:string; c:char;i,j:integer;
begin write('введите n='); readln(n);
     for j:=1 to length(n) do
      for i:=1 to length(n)-1 do
      if n[i]>n[i+1] then begin c:=n[i]; n[i]:=n[i+1]; n[i+1]:=c;
      end;
      writeln('n=',n);
end.

Leave a Comment

39 − = 34