Задано натуральное число N. Найти наименьшее и наибольшее число, состоящее из тех же цифр и в таком же количестве, что и N

[dimon_snake]

Задано натуральное число N. Найти

наименьшее и наибольшее число, состоящее из тех же цифр и в таком же количестве, что и N.

Входные данные
Вы вводите с клавиатуры число N.

Выходные данные
Вы выводите в одной строке наименьшее число, а через пробел - наибольшее число.

Пример входных и выходных данных
Вход: 7051
Выход: 1057 7510
Подскажите алгоритм

[Stilet]

Выход: 1057 7510

Неправильно. Наименьшее будет 0157.

[Serge_Bliznykov]

алгоритм достаточно простой
Наибольшее число - отсортировать цифры в убывающем порядке.
Наименьшее число - отсортировать цифры в возрастающем порядке,
но потом переставить первую НЕНУЛЕВУЮ цифру в начало числа.

например, задано число 6985000, найдём наименьшее число.
после сортировки в возрастающем порядке получаем 0005689
очевидно, что с ведущими нулями число быть не может, они по правилам записи чисел должны быть отброшены. Чтобы это не случилось, переставляем цифру 5 в начало:
5000689
это и есть наименьшее число.
всё.

Неправильно. Наименьшее будет 0157.

пример специально привели, чтобы показать, что в получаемых числах разрядность должна быть такая же, как и в исходном числе.
если ввели четырёхзначное число, то и на выходе должно быть четырёхзначное число
а, извините, 0157 - это ТРЁХЗНАЧНОЕ число, ведущий ноль отбрасывается по правилам записи чисел.

[Stilet]

0157 - это ТРЁХЗНАЧНОЕ число

Хе, ноль я для чего оставил? Или ты скажешь что числа с нулем впереди быть не может? А у нас так хитро преподы ловили на подобных приколах...

[Serge_Bliznykov]

Или ты скажешь что числа с нулем впереди быть не может?

скажу. не может.
Всех, кто спорит - попрошу подсчитать количество трёхзначных чисел.
(например,
http://znanija.com/task/6851335
http://lektsiopedia.org/lek-46488.html
)

кроме того, то, к чему Вы придираетесь, дано как ОБРАЗЕЦ ПРАВИЛЬНОГО решения.

Будете продолжать спорить?!

[Аватар]

А у нас так хитро преподы ловили на подобных приколах

Преподы-приколисты? И так и да - 0157 - это ТРЁХЗНАЧНОЕ число

[Stilet]

Будете продолжать спорить?!

Неа. Продолжать будет препод )
А я просто тих посмеюсь.

0157 - это ТРЁХЗНАЧНОЕ число

Ну да, ноль уже ничего не значит? ))
Ладно. Проехали. Когда нибудь сами нарветесь на такой прикол на каком-нибудь acmp.хрю, потом не жалуйтесь.

[Dvoishnik]

если по заданию то так можно

var
	n:integer;
	s:string;
	
	
	
function intToStr(i:longInt):string;
	var s:string;
begin
 str(i,s);
 IntToStr:=s;
end;

Function Sort(NapSort:boolean;s:string):string;
	var i,k:byte;
		a:Char;
Begin
if napSort then
begin
 For k := 1 To  length(s)-1 Do
   For i := 1 To length(s)-k Do
     If s[i] > s[i+1] Then
       Begin
         A:=s[i];
         s[i]:=s[i+1];
         s[i+1]:=A ;
       End;
end
	   else
		begin
		 For k := 1 To  length(s)-1 Do
		   For i := 1 To length(s)-k Do
			 If s[i] < s[i+1] Then
			   Begin
			    A:=s[i];
				s[i]:=s[i+1];
				s[i+1]:=A ;
			   End;
		end;
Sort:=s;
end;

Function nulInd(s:string):byte;
	var i:byte;
begin
 i:=1;
 while s[i]='0' do
	i:=i+1;
 nulInd:=i;

end;

begin
 Write('vvedite n:');ReadLn(n);
 s:=IntToStr(n);
 s:=Sort(true,s);
 if nulInd(s)>1 then
	begin
	 Insert ((copy(s,1,(nulInd(s)))),s,(nulInd(s)+2));
	 Delete(s,1,nulInd(s));
	end; 
 Write(s,' ') ;
 Writeln(Sort(false,s)) ;  
 readln; 
end.

а если как хочет Stilet то так

	var
	n:integer;
	s:string;
	
	
	
function intToStr(i:longInt):string;
	var s:string;
begin
 str(i,s);
 IntToStr:=s;
end;

Function Sort(NapSort:boolean;s:string):string;
	var i,k:byte;
		a:Char;
Begin
if napSort then
begin
 For k := 1 To  length(s)-1 Do
   For i := 1 To length(s)-k Do
     If s[i] > s[i+1] Then
       Begin
         A:=s[i];
         s[i]:=s[i+1];
         s[i+1]:=A ;
       End;
end
	   else
		begin
		 For k := 1 To  length(s)-1 Do
		   For i := 1 To length(s)-k Do
			 If s[i] < s[i+1] Then
			   Begin
			    A:=s[i];
				s[i]:=s[i+1];
				s[i+1]:=A ;
			   End;
		end;
Sort:=s;
end;

begin
 Write('vvedite n:');ReadLn(n);
 s:=IntToStr(n);
 Write(Sort(True,s),' ') ;
 Writeln(Sort(false,s)) ;  
 readln; 
end.

[Aleksandr H.]

uses crt;
var n : longint;
s, saz,sza : string;
i,j:integer;
buf:char;
begin
clrscr;
write('Input N: ');readln(n);
n := abs(n);
str(n,s);
saz:=s;
sza:=s;
for i:= 1 to length(s) do
for j:=i to length(s) do
begin
     if saz[i]>saz[j] then
        begin
                buf:=saz[i];
                saz[i]:=saz[j];
                saz[j]:=buf
        end;

     if sza[i]<sza[j] then
        begin
                buf:=sza[i];
                sza[i]:=sza[j];
                sza[j]:=buf
        end;
end;
  if saz[1] = '0' then
     begin
          for j:= 2 to length(saz) do
           if saz[j] <> '0' then
              begin
                   saz[1] := saz[j];
                   saz[j] := '0';
                   break;
              end;
     end;
writeln('AZ: ',saz);
writeln('ZA: ',sza);
readln;
end.

[dimon_snake]

Спасибо большое.