{* Задача21 *}

REM basic

' Вычислить:

'
с точностью до 10^-4.


10 INPUT "Введите точность ", D
30 S=0
40 S1=0
50 n=0
60 a=0
70 n=n+1
80 a=(-1)^(n+1)/(2*n-1)
90 S1=S1+a
100 S=S1*4
110 PRINT "n="; n, "S="; S
120 If ABS(a)>D Then 60
130 End