Числовая Задача!, Мне дали задачу, а я не могу её решить! Помогите пожплуйста написа Опции

[Константин]

Мне надо решить эту задачу на Паскале и без оператора цикла for!!!

Напечатать в возрастающем порядке все трёхзначные числа, в десятичной записи которой нет одинаковых цифр.

Зарание Огромное Спасибо!

[volvo]

без оператора цикла for

Рекурсию используй...

[Гость]

Рекурсию используй...

Это как???
Я такого не изучал!

[мисс_граффити]

ну пользуйся циклом while
и кричать так не надо

[volvo]

Мало ли что ты не изучал...

Задание поставлено как? Не использовать цикл FOR? Хорошо, есть цикл While... Есть Repeat... А где гарантия, что ты (или твой преподаватель) не скажешь, что нельзя вообще пользоваться циклами? Никакими... Поверь, ты не первый, кто задает вопросы на этот форум. И в основном так и происходит... ПОТОМ выясняется, что нельзя еще это, и это, и вот это...

Поэтому я тебе предложил вариант который не использует само понятие "цикл"... Вообще. Надо - покажу, как...

[Гость]

Мало ли что ты не изучал...

Задание поставлено как? Не использовать цикл FOR? Хорошо, есть цикл While... Есть Repeat... А где гарантия, что ты (или твой преподаватель) не скажешь, что нельзя вообще пользоваться циклами? Никакими... Поверь, ты не первый, кто задает вопросы на этот форум. И в основном так и происходит... ПОТОМ выясняется, что нельзя еще это, и это, и вот это...

Поэтому я тебе предложил вариант который не использует само понятие "цикл"... Вообще. Надо - покажу, как...

Конечно надо! Можешь показать как решать эту задачу.

[volvo]

Без циклов - так:

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.

Спасибо тебе ОГРОМНОЕ! Ты реально помог!

[Гость]

Спасибо тебе ОГРОМНОЕ! Ты реально помог!

У меня к тебе последний вопрос: А почему "print(102)" - указанно число 102 ???

[volvo]

А потому что это - первое трехзначное число, в котором все цифры разные...

[Гость]

А потому что это - первое трехзначное число, в котором все цифры разные...

Благодарю! Просто нужно было знать это чтобы обьяснить если что....