Question

Помогите написать программу на языке Qbasic

Answer 1

DIM n AS INTEGER, x AS DOUBLE, p AS DOUBLE, sx AS DOUBLE
CLS
INPUT "n,x=", n, x
sx = SIN(x)
p = 1
FOR i = 1 TO n
   p = p * (1 / n + sn / n ^ (n - 1))
NEXT i
PRINT p