2.
uses crt;
var i,n:integer;s:real;
begin
        clrscr;
        readln(n);
        for i:=1 to n do
        if i mod 2 <> 0 then
        begin
                s:=1/i;
                i:=i+2;
        end;
        write(s:2:3);
        readln
end.

Program Tinh_Tong;

Uses crt;

Var  i  ,n:integer;

S:real;

Begin

     Write(‘Nhap so n= ‘);readln(n);

     S:=0;i:=1;

begin

     While i<=n do S:=S+1/(2*i+1);

     i:=i+1;

end;

writeln(‘Tong S= ‘, S:10:3);

readln

end.

Tính tổng S= 1/3! + 1/5! + 1/7! +1/9! +...+ 1/(n-1)!