Question

В интервале [2;n] найти натуральное число с максимальной суммой делителей.

Answer 1

Vivdarkbloom, к сожалению, нашел сумму всех чисел от 2 до N, а не число с 
максимальной суммой делителей. Надо было так, пишу на Visual Basic
Sub Command1_Click()
Rem Программа запускается по нажатию кнопки  Command1 на форме
Dim n As Integer, Summa As Integer, Max As Integer
Dim Maxn As Integer, i As Integer, k As Integer
n = Text1.Text ' Это текстовое поле на форме, куда вводится n
Max = 1: Maxn = 1
For i = 2 To n
Summa = 0
For k = 1 To i
If i Mod k = 0 Then Summa = Summa + k ' Если k - делитель i, то прибавляем
Next k
If Summa > Max Then ' Если сумма больше максимальной
   Max = Summa ' Сохраняем сумму
   Maxn = i ' И сохраняем число i.
End If
Next i
Text2.Text = Maxn ' Это второе текстовое поле, куда выводится результат
End Sub

Answer 2

Чтобы найти натуральное число в интервале [2;n] с максимальной суммой делителей, нужно просмотреть все числа в этом интервале и вычислить сумму делителей для каждого числа. Затем выбрать число с наибольшей суммой делителей.

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

pythonCopy code
def sum_of_divisors(n):
    divisors_sum = 0
    for i in range(1, n+1):
        if n % i == 0:
            divisors_sum += i
    return divisors_sum

def find_number_with_max_divisor_sum(start, end):
    max_divisor_sum = 0
    number_with_max_divisor_sum = 0
    for i in range(start, end+1):
        current_divisor_sum = sum_of_divisors(i)
        if current_divisor_sum > max_divisor_sum:
            max_divisor_sum = current_divisor_sum
            number_with_max_divisor_sum = i
    return number_with_max_divisor_sum

n = int(input("Введите значение n: "))
result = find_number_with_max_divisor_sum(2, n)
print("Натуральное число с максимальной суммой делителей:", result)

Вы можете ввести значение n и запустить этот код, чтобы найти натуральное число с максимальной суммой делителей в интервале [2;n].