{* Задача149 *}

REM basic

' Вычислить число PI через ряд Лейбница, с точностью до 7 знаков после запятой


CLS
Dim Pi As Double
Nmax = 1000
For N = 0 To Nmax
  Pi = Pi + (-1) ^ N / (2 * N + 1)
Next N
Pi = Pi * 4
PRINT "Pi="; Pi