Помогите, пожалуйста, со вторым заданием Даю 20 баллов

Question

Помогите, пожалуйста, со вторым заданием Даю 20 баллов

---

Comments

Язык какой?

---

Паскаль

Answer 1

var

i,n:integer;

S:real;

begin

readln(n);

for i:=1 to n do

   S:=S+(1/(2*i));

writeln (s:0:2);

end.

---