Вычислить выражения, используя для организации цикла операторы FOR … NEXT

26.05.2012, 09:33. **Показов** 917. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Кто какие сможет. Там их несколько

echs · 12.06.2016, 13:27

проверено

QBasic/QuickBASIC

DECLARE FUNCTION f! (n!)
CLS
INPUT "N = "; n
 
max = 1
 
FOR i = 2 TO n - 1
   k = f(i)
   IF max < k THEN
      max = k
      j = i
   END IF
NEXT i
 
PRINT "M ="; j
END
 
FUNCTION f (n)
   s = 1
   FOR i = 1 TO n / 2
      IF n MOD i = 0 THEN s = s + i
   NEXT i
   f = s
END FUNCTION

	12.06.2016, 13:27