Дано натуральное число n. Вывести число, меньшее n, с максимальной суммой делителей

code: #basic
CLS
INPUT "Vvedite chislo: ", n
FOR u = 1 TO n - 1   ' Перебираем все числа до n
   s = 0
   FOR d = 1 TO u    ' Ищем сумму делителей
      IF u MOD d = 0 THEN
       s = s + d: IF s > MaxD THEN MaxD = s: c = u
      END IF
   NEXT
NEXT
PRINT "Chislo          :"; c
PRINT "Summa delitelej :"; MaxD

автор: >Quiet Snow<

Поделиться:

Похожие статьи: