Паскаль вывод цифр в порядке убывания.

[Escada]

пользователь вводит конечное число N, нужно все трехзначные числа до N написать таким образом что бы цифры в числе стояли в порядке возрастания.
массивы использовать нельзя=(.
помогите пожалуйста.

[GetMax]

Так пойдет

Function Sorted(NN : Word):Word;
Var
  a, b, c, tmp : Byte;
  res : Word;
Begin
  a := NN mod 10;
  b := NN mod 100 div 10;
  c := NN div 100;
  if (a > b) then
  Begin
    tmp := a;
    a := b;
    b := tmp;
  End;
  if (a > c) then
  Begin
    tmp := a;
    a := c;
    c := tmp;
  End;
  if (b > c) then
  Begin
    tmp := b;
    b := c;
    c := tmp;
  End;
  res := a;
  res := (res*10 + b);
  res := (res*10 + c);
  result := res
End;

Проблема только с нулями в числах

[Escada]

спасибо,а можешь объяснить
Function Sorted(NN : Word):Word; что это?а то у меня пока начальный уровень и нужно эту задачку сделать через фор.
вот что у меня пока есть

program lab3;
var a1,a2,a3,b,i:integer;
Begin
writeln ('do kakogo chisla 101-999');
readln (b);
if (b<101) and (b>999)then write ('nepravelnoe chislo') else
begin

for i:=100 to b do
begin
a1:=(i mod 100) mod 10;

a2:= (i mod 100)div 10;
a3:= i div 100;
write (' ',i,' ');
if (a1<a2) AND (a1<a3) then
begin
write (a1);
if (a2<a3) then write (a2) else write (a3)
end
else

if (a2<a1) and (a2<a3) then
begin
write (a2);
if (a1<a3) then write (a1) else write (a3)
end

else

if (a3<a1) and (a3<a2) then
begin
write (a3);
if (a1<a2) then write (a1) else write (a2)
end;
end;
end;
readln;

End.
.

но пока оно выдает ответ 100,а это не совсем близко к идеалу=)

[GetMax]

Function Sorted(NN : Word):Word

Это объявлении подпрограммы-функции в паскале. В принципе можно и без нее обойтись. То что написали Вы, фактически просто выводит цифры, из которых состоит число, в обратном порядке. Если этого достаточно, то можно сделать так

readln (b1);
a := NN mod 10;
  b := NN mod 100 div 10;
  c := NN div 100;
  if (a > b) then
  Begin
    tmp := a;
    a := b;
    b := tmp;
  End;
  if (a > c) then
  Begin
    tmp := a;
    a := c;
    c := tmp;
  End;
  if (b > c) then
  Begin
    tmp := b;
    b := c;
    c := tmp;
  End;
Write (a,b,c)

[Escada]

нужно сделать через фор,я вот не пойму почему оно выводит их в обратном порядке если должно по идее сравнивать их и выводить в зависимости от того какое меньше,нужно вывести все числа от 100 до b поменяв в них цифры местами что бы получилось минимальное число.
и сначала оно должно выводить все числа от 100 до б.
я понимаю как это должно работать но не понимаю в чем мои ошибки=\

[GetMax]

Так в чем проблема то

Readln(b1);
for i := 100 to b1 do
Begin
  a := i mod 10;
  b := i mod 100 div 10;
  c := i div 100;
  if (a > b) then
  Begin
    tmp := a;
    a := b;
    b := tmp;
  End;
  if (a > c) then
  Begin
    tmp := a;
    a := c;
    c := tmp;
  End;
  if (b > c) then
  Begin
    tmp := b;
    b := c;
    c := tmp;
  End;
 Write (i,'->',a,b,c)
End;

Это вроде то, что Вам нужно.
Например

251 - > 125

[Escada]

var i,a,b,c,tmp,b1: integer;
Begin

Readln(b1);
for i := 100 to b1 do
Begin
  a := i mod 10;
  b := i mod 100 div 10;
  c := i div 100;
  if (a > b) then
  Begin
    tmp := a;
    a := b;
    b := tmp;
  End;
  if (a > c) then
  Begin
    tmp := a;
    a := c;
    c := tmp;
  End;
  if (b > c) then
  Begin
    tmp := b;
    b := c;
    c := tmp;
  End;
 Write (i,'->',a,b,c)
End;
end.

выводит 100->001101->011102->012103->013104->014105->015106->016107->017108->018109->019110->011 при вводе 110

[Escada]

спасибо за помощь,моя прога заработала,кому понадобиться пишите alexandrbaydujiy@gmail.com