Question

Срочно,ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ!!!

Answer 1

===== PascalABC.NET

begin

 var s := 0.0;

 for var i := 1 to ReadInteger('n =') do

   s += 1 / Sqrt(i);

 Println(s)

end.