Question

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

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.