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
Пример на c#: int a; int b; int c; int d; Console.WriteLine("Введите стоимость перчаток"); a = Convert.ToInt32(Console.ReadLine()); Console.WriteLine("Введите стоимость портфеля"); b = Convert.ToInt32(Console.ReadLine()); Console.WriteLine("Введите стоимость галстука"); c = Convert.ToInt32(Console.ReadLine()); Console.WriteLine("Введите сумму, которую вы даете продавцу"); d = Convert.ToInt32(Console.ReadLine()); int result; int sdacha; result = a + b + c; if (result <= d) { sdacha = d - result; Console.WriteLine("Ваша сдача - {0}", sdacha); } if (result > d) { Console.WriteLine("Вам нужно доплатить"); } Console.ReadKey();
64х64 пикселей = 2^6 * 2^6 = 2^12 пикселей;
i = I/k; i = 1,5 * 2^13 / 2^12 = 1,5 * 2 = 3 бита;
N = 2^3 = 8 цветов в палитре.