Составить программу вычисления и выдачи на печать суммы(или произведения) N элементов бесконечного числового ряда. у=48(-24)12(-6)3 — QBasic(Бейсик)

INPUT n
a = 24
FOR i = 1 TO n
    s = s + a
    a = -a / 2
NEXT
PRINT s

Тестирование выполнено в программе QB64 ( Скачать )