Answer 1

var s:real; n,i:integer;
begin
read(n);
for i:=1 to n do
s:=s+(1/i);
writeln(s:0:5); {нүктеден кейінгі 5 сан}
end.

Answer 2

var n,i:ineger;
s:real;
Begin
read( n );
for i:=1 to n do;
s:=s+i/(i+1);

writeln(s:5:2);
End.