• 03 December 2013
    • Химия
    • Автор: Кетрин60

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


    • 03 December 2013
    • Ответ оставил: Няшка2741

    Program Natur; 
     Uses Crt; 
    Var a, Summa, n : integer;
     Begin
     Clrscr; 
    write('N='); 
    readln(N);
     {Цикл с предусловием} 
    a:=2;
      Summa:=0; 
     while a<=N do 
     begin  Summa:= Summa + a;  a := a + 1  end;
     Writeln (' Результат первого суммирования:' , Summa) ; 
    {Цикл с постусловием}
     а:=1;
     Summa:=0; 
     repeat  Summa:=Summa+ а;  а:=а+1  until a>N;
     Writeln
     (' Результат второго суммирования:' , Summa) ;
     {Цикл с параметром} Summa:=0;
     for а := 2 to N do Summa : =Summa + a; 
    Writeln (' Результат третьего суммирования:', Summa); End

    Оцените ответ
    • 03 December 2013
    • Ответ оставил: Егор15

    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

    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы