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

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