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

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