Задание:
В интервале [2; n] найти натуральное число с максимальной суммой делителей.
Решение:
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
Знаете другой ответ?