{* Задача168 *}

REM basic

'


CLS
INPUT "Введите точность"; e
S=0
A=1
i=1
While A>e
A=1/I
S=S+A
I=i+1
Wend
PRINT "S="; S
End