{* Задача287 *}

REM basic

' Составить программу вычисления числового ряда для известного числа ряда N.
' Y=((3^3)-1) ((3^-2)+2) ((3^1)-4) ((3^-0)-8)


DEFDBL M-Y
  CLS
n = 5: m = 1: y = 1
For i = 0 To n - 1
   y = y * (3 ^ ((3 - i) * m) + (-m * 2 ^ i))
   m = -m
   PRINT "i :"; i, "Y = "; y
Next