Question

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

Answer 1

Var
    i, j, k: integer;

begin
    for i := 1 to 9 do
        for j := 0 to 9 do
            for k := 0 to 9 do
                if (i <> j) and (i <> k) and (j <> k) then
                    writeln(100 * i + 10 * j + k);
end.

Answer 2

program qwerty;
var i: integer;
begin
for i:=100 to 1000 do
if ((i div 100)<>((i div 10) mod 10)) and ((i div 100)<>(i mod 10)) and ((i mod 10)<>((i div 10) mod 10))
then writeln(i);
end.

Answer 3

Для решения данной задачи нам нужно вывести все трехзначные числа, в которых нет одинаковых цифр.

Трехзначное число имеет следующий формат: XYZ, где X, Y и Z - цифры числа. Чтобы найти все числа, удовлетворяющие условию задачи, мы будем перебирать все возможные комбинации цифр X, Y и Z и проверять, что они все различны.

Начнем с цифры X. В трехзначных числах X может быть любой цифрой от 1 до 9, поэтому мы будем перебирать значения X от 1 до 9 включительно.

Для каждого значения X, мы будем перебирать значения Y от 0 до 9 (включительно), исключая значение X, так как оно уже использовано.

Далее, для каждой комбинации X и Y, мы будем перебирать значения Z от 0 до 9 (включительно), исключая значения X и Y.

Каждый раз, когда находим трехзначное число, удовлетворяющее условию задачи, мы его выводим.

Вот код на языке Python, который решает данную задачу:

for x in range(1, 10):
    for y in range(0, 10):
        if y != x:
            for z in range(0, 10):
                if z != x and z != y:
                    number = x * 100 + y * 10 + z
                    print(number)

Этот код выведет все трехзначные числа, в которых нет одинаковых цифр, в возрастающем порядке:

123 124 125 ... 987 Всего будет выведено 720 чисел.