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

disel
1
2
3
4
5
6
7
8
9
10
11
12
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

Похожие записи/страницы: