Мне надо решить эту задачу на Паскале и без оператора цикла for!!!
Напечатать в возрастающем порядке все трёхзначные числа, в десятичной записи которой нет одинаковых цифр.
Зарание Огромное Спасибо!
procedure print(n: integer);
var n1, n2, n3: integer;
begin
n1 := n div 100; n2 := (n div 10) mod 10; n3 := n mod 10;
if (n1 - n2) * (n1 - n3) * (n2 - n3) <> 0 then writeln(n);
if n < 999 then print(n + 1);
end;
begin
print(102);
end.
procedure print(n: integer);
var n1, n2, n3: integer;
begin
n1 := n div 100; n2 := (n div 10) mod 10; n3 := n mod 10;
if (n1 - n2) * (n1 - n3) * (n2 - n3) <> 0 then writeln(n);
if n < 999 then print(n + 1);
end;
begin
print(102);
end.