zadach384.BAS

{* Задача384 *}

REM basic

' Cоставить программу вычисления и выдачb на печать произведения N элементов бесконечного числового ряда y=(-512)256(-128)...


INPUT n
y&=1
For i=1 To n
y&=y&*(-1)^i*2^(9-i)
Next
PRINT y&
End