zadach429.BAS

{* Задача429 *}

REM basic

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


INPUT n
a=24
For i=1 To n
s=s+a
a=-a/2
Next
PRINT s
End