Написать программу: Вычислить сумму кубов всех 3-х значных нечетных чисел. QBASIC.

Question

Написать программу: Вычислить сумму кубов всех 3-х значных нечетных чисел. QBASIC.

Answer 1

DIM i AS LONG, s AS DOUBLE
s = 0
FOR i = 101 TO 999 STEP 2
   s = s + i ^ 3
NEXT i
CLS
PRINT "S="; s

Результат: S= 124987252500