Получить число, состоящего из цифр числа a, записанных в не убывающем порядке. 3/5 тестов.

[RusseLfStyle]

Вы бы хоть проверяли прежде чем давать. Ввожу элемнтарно 321, выводит 312. Сам говрил про мое уг, мое хотя бы в большенстве случаев работает.

[Serge_Bliznykov]

а если чуть-чуть модифицировать вариант решения от Poma][a

получится такой код:

var
   a, b, c, d, t : Integer;

begin
     Readln(a);

     b := a mod 10;
     c := a div 10 mod 10;
     d := a div 100;

     while (d<c) or (c<b) do begin
       if d < c then begin
          t := c; c := d; d := t;
       end;

       if c < b then begin
         t := b; b := c; c := t;
       end;
     end;

     WriteLn (b,c,d);
end.

[Plague]

Получить число, состоящего из цифр числа a, записанных в не убывающем порядке.

Вводим 407 -> программа выдает 047.

047 это запись числа? По моему ответ должен быть 47.

[Poma][a]

Программа работает со строкой => добавьте

if s[1] = '0' then begin   
        WriteLn (s[2],s[3]);
        Halt;
end;

З.Ы. можно с помощью Delete

[Serge_Bliznykov]

047 это запись числа? По моему ответ должен быть 47.

ну, строго говоря, 047, так же, как 00047 это тоже запись числа.
Просто незначащие нули (как слева, так и справа) принято не писать.
Но я бы очень сильно поспорил с тем, кто бы сказал, что это не число!

А ещё, это Вы агенту 007 расскажите, что он не агент ноль-ноль-семь, а агент Семь


p.s. впрочем, согласен с Poma][a, подправить вывод, чтобы ведущие нули не выводились (если они реально не нужны) - это дело 5 секунд!

[Кольша]

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

[Serge_Bliznykov]

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

а при чём здесь "реверс строки" ?! Что Вы имеете в виду?


p.s. имхо, "сложность" данной задачи явно не соответствует тому количеству сообщений, которое написано в данной теме!

[Кольша]

var
s,e:string;
i:integer;
begin
s:='123';
e:='';
for i:=1 to lenght(s) do
e:=e+s[lenght(s)-1];
if strtoint(e)<=strtoint(s) then
e:=s;
showmessage(e);

как то так

[Plague]

да конечно, какая разница как записывать.
можно 047, можно 0.47*10^2 или 4.7e1 или лучше так 2F$.
главное чтобы агент 007 был доволен, а принятые принципы записи чисел в математике никому кому ненужны.

[Poma][a]

давайте еще к русскому языку перейдем, пробелы считать будем!