Винтервале [2; n] найти натуральное число с максимальной суммой делителей.
191
481
Ответы на вопрос:
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
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
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
virudskaya28.07.2021 18:32
-
sereja2002g30.04.2022 11:05
-
dalqwe16.02.2021 08:04
-
jeneksoul199702.03.2021 18:03
-
vitalikpalamarc02.01.2023 12:48
-
Мастер00808.04.2022 09:04
-
thankay13.06.2021 13:25
-
Никитамиоп22.10.2021 11:16
-
VetaRo31.03.2022 03:33
-
daryalife199828.10.2021 21:30
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.