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
Содержание понятия — это совокупность существенных и отличительных признаков предмета, качества или множества однородных предметов, отражённых в этом понятии, поскольку с точки зрения логики всякое понятие имеет содержание и объём. например, содержанием понятия «коррупция» является совокупность двух существенных признаков: «сращение государственных структур со структурой преступного мира» и «подкуп и продажность общественных и политических деятелей, государственных чиновников и должностных лиц». о содержании понятия нельзя говорить в отрыве от его объёма. объёмом понятия называется множество обобщённых в нём предметов. например, под объёмом понятия «товар» подразумевается множество всех изделий, предлагаемых рынку как сейчас, так и в прошлом или в будущем. а чтоб понятнее: род - цветок, фрукт, овощ, буква, цифра, орудие, прибор, животное, насекомое, металл, орган, подросток, дом, день, военный, вид - школьник, лодка, олово, почки, морковь, микроскоп, два, фиалки, сержант, топор, груши, "у", тюлень, резиновая лодка, оса, деревянный дом, зимний день. кажется так. вот род цветок, а вид фиалка. или род овощ, а вид морковь. в род входит класс. цветок - фиалка фрукт - груши овощ - морковь буква - у цифра - 2 орудие - топор прибор - микроскоп животное - тюлень насекомое - оса
Для редактирования текста применяются средства- - выделение части текста протаскиванием указателя мыши или нажатием клавиш-стрелок при удерживаемой клавише ; - вырезка, копирование и вставка части текста либо сочетанием горячих клавиш +, +, + соответственно, либо при меню edit (правка) , контекстного меню или панели standard (стандартная) . примечание - кроме того, существуют развитые средства форматирования текста, такие как типом и размером шрифта, выравниванием и т. п. большинство этих возможностей реализуется при панели инструментов formatting (форматирование) .
максимальной суммой делителей. Надо было так, пишу на 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