Question

Напишите программу, которая вводит натуральные числа а и b и выводит на экран все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр. Входные данные Входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b . Выходные данные Программа должна вывести в одну строчку все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр. Числа разделяются пробелами. Примеры Входные данные 10 20 Выходные данные 11 12 15 На паскале

Answer 1

Var
    a, b, i, t:integer;
    c:boolean;
begin
    read (a, b);
    for i := a to b do
        begin
            t := i;
            c := true;
            repeat
                if (t mod 10 = 0) or (i mod (t mod 10) <> 0)
                    then c := false;
                t := t div 10;    
            until t > 0;
            if c = true then write (i, ' ')
        end;
end.

Answer 2

Вот пример программы на языке Python, которая решает задачу:

pythonCopy code
def is_divisible_by_digits(num):
    # Проверяет, делится ли число на каждую из своих цифр
    digits = [int(digit) for digit in str(num) if int(digit) != 0]
    return all(num % digit == 0 for digit in digits)

# Ввод чисел a и b
a, b = map(int, input().split())

# Находим и выводим все числа на отрезке [a, b], делящиеся на каждую из своих цифр
result = [num for num in range(a, b+1) if is_divisible_by_digits(num)]
print(*result)

Вы можете запустить этот код и ввести значения a и b для проверки. Например, если ввести 10 20, программа выведет 11 12 15, так как эти числа находятся на отрезке [10, 20] и делятся на каждую из своих цифр.