zadacha301.BAS

{* Pадача301 *}

REM basic

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


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
Huend