Найти сумму целых отрицательных нечетных чисел, больших -100 - QBasic

Операторы цикла.

Найти сумму целых отрицательных нечетных чисел, больших -100

)Y =1+1/X+6/X^5

Листинг программы

CLS
FOR i = -100 TO 0
    IF i / 2 <> INT(i / 2) THEN s = s + i : PRINT i ;
NEXT
PRINT
PRINT "summa:"; s

Объяснение кода листинга программы

CLS — команда для очистки экрана
FOR i = -100 TO 0 - цикл, выполняющийся от -100 до 0 с шагом 1
IF i / 2 <> INT(i / 2) THEN — условие, при котором происходит добавление числа i к сумме и вывод его на экран
s = s + i — прибавление числа i к сумме
PRINT i — вывод числа i на экран
NEXT — переход к следующей итерации цикла
PRINT — вывод информации на экран
PRINT summa:; s — вывод суммы на экран
s — сумма целых отрицательных нечетных чисел, инициализируется значением 0