Question

Среди трехзначных натуральных чисел вывести в строчку те, у которых все цифры различны

Answer 1

Var
   A,b,c,d:integer;
Begin
For A:= 100 to 999 do
    Begin
    b:=A div 100;
    c:=(A div 10) mod 10;
    d:=A mod 10;
    if (b<>c)and(b<>d)and(c<>d) then Write(A,' ')
    End;
End.

Answer 2

Чтобы вывести в строчку все трехзначные натуральные числа, у которых все цифры различны, нужно использовать цикл, который будет перебирать все числа от 100 до 999. Затем нужно проверить, что в данном числе все цифры различны.

Вот подробный алгоритм:

1. Создаем цикл, который будет перебирать все числа от 100 до 999. Это можно сделать с помощью цикла for или while.

2. Внутри цикла получаем каждую цифру числа. Можно разделить число на отдельные цифры, используя операцию деления на 10 и получение остатка от деления на 10.

Пример: digit1 = число // 100 (первая цифра) digit2 = число // 10 % 10 (вторая цифра) digit3 = число % 10 (третья цифра)

3. Проверяем, что все цифры числа различны. Для этого используем условие if, сравнивая цифры между собой.

Пример: if digit1 != digit2 and digit1 != digit3 and digit2 != digit3: (если все цифры различны)

4. Если условие из пункта 3 выполняется, то выводим число в строчку.

Пример: print(число)

5. Цикл продолжает свою работу, перебирая следующие числа.

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