Question

Написать программу, которая для чисел в диапазоне от A до B определяла количество их делителей. К при- меру, A= 10, B = 15. Делители для числа 10 — 1 2 5 10; Делители для числа 11 — 1 11; Делители для числа 12 — 1 2 3 4 6 12; Делители для числа 13 — 1 13; Делители для числа 14 — 1 2 7 14; Делители для числа 15 — 1 3 5 15.

Answer 1

PascalABC.NET:

• uses School;
• begin
•  var (a, b) := ReadInteger2;
• (a..b).Sum(x -> x.Divizors.Count).Print
• end.

Answer 2

Вот пример программы на языке Python, которая определяет количество делителей для чисел в заданном диапазоне от A до B:

pythonCopy code
def count_divisors(number):
    count = 0
    for i in range(1, number + 1):
        if number % i == 0:
            count += 1
    return count

def count_divisors_in_range(a, b):
    for num in range(a, b + 1):
        divisors_count = count_divisors(num)
        print("Делители для числа", num, "—", end=" ")
        for i in range(1, num + 1):
            if num % i == 0:
                print(i, end=" ")
        print()

A = 10
B = 15
count_divisors_in_range(A, B)

Эта программа определяет функцию count_divisors, которая считает количество делителей для заданного числа number. Затем определена функция count_divisors_in_range, которая принимает диапазон чисел от a до b и выводит делители для каждого числа в этом диапазоне.

В приведенном примере программы вызывается функция count_divisors_in_range с аргументами A = 10 и B = 15. Результат работы программы будет выглядеть следующим образом:

Copy code
Делители для числа 10 — 1 2 5 10
Делители для числа 11 — 1 11
Делители для числа 12 — 1 2 3 4 6 12
Делители для числа 13 — 1 13
Делители для числа 14 — 1 2 7 14
Делители для числа 15 — 1 3 5 15

Каждая строка выводит число и его делители, разделенные пробелом.