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

[RusseLfStyle]

В который раз тестер не принимает. Подправьте код, пожалуйста. Сам проверял вроде правильно.

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

Входные данные:
Дано целое трехзначное число a

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

Пример входного файла (input.txt):
748

Пример выходного файла (output.txt):
478

var a,b,c,d:integer;
begin
read(a);
b:=a mod 10;
c:=a div 10 mod 10;
d:=a div 100;
if (b>c)and(b>d)and(c>d) then writeln(d,c,b)
else if (c>b)and(c>d)and(b>d) then writeln(d,b,c)
else if (d>c)and(d>b)and(b>c) then writeln(c,b,d)
else if (b>c)and(b>d)and(d>c) then writeln(c,d,b)
else if (c>b)and(c>d)and(d>b) then writeln(b,d,c)
else if (d>c)and(d>b)and(c>b) then writeln(b,c,d)
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Кольша]

А не проще будет сделать реверс строки?

[RusseLfStyle]

Покажи код, я не понял.

Задача на ветвление расчитана.

[Poma][a]

оформляй код #
введи 101 и получишь ничего
само решение задачи - уг
уж красивее было бы соритировочку любую забабахать....

[Кольша]

var a:integer;
s:string;
begin
read(a);
s:=inttostr(a);
s:=copy(s,3,3);////вот тут может быть не с 3 а с 2
s:=copy(s,3,3);
s:=copy(s,3,3);
writeln(s)

[RusseLfStyle]

А без inttostr никак? Функция не пашет

[Poma][a]

можно) Str (a,s)
у вас по всей видимости TP, у автора предложенного решения Free или Delphi , поэтому и не пашет

[RusseLfStyle]

Ничего не происходит, и с str тоже. И на дефлфи и на ТП. Можно как-то через ветвление? Задача на ветвление.

[Poma][a]

можно, ща будет

[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;

     if d > c then begin
        t := c; c := d; d := t;
     end;

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

     WriteLn (b,c,d)
end.