{* Задача434 *}

REM basic

' Написать программудля нахождения суммы 1/sqr1 +1/sqr2+1/sqr3+.....+1/sqr n


CLS
INPUT "n="; n
s = 0
For i = 1 To n
s = s + 1 / SQR(i)
Next i
PRINT "s="; s
End