Question

vt gium minh pt pascal tinh tong s=1+1/3+1/5+....+1/n

Answer 1

Var i, n : integer;

S : real;

Begin

Write (‘n=’); read(n);

S:=1;

For i:= 1 to n do S:= S + 1/(i+2);

Write(S);

Readln;

End.

Answer 2

program bai1;

var s,i,n:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do if i mod 2=1 then s:=s+1/i;

write('s= ',s);

readln

end.