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

Question

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

Answer 1

48

grichenkov

05 февраля 2023

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

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: