1. S= 1/3 + 1/5 + 1/7 + …..+ 1/n (với n là số lẻ theo thứ tự tăng dần) 2. S= 1/2 + 1/4 +1/6 +…..+1/n (với n là số chẵn theo thứ tự tăng dần) 3. S= 1/2 + 1/3 +1/4 +1/5 +…..+1/15

1/

Program BTH;
uses crt;
var s:real;
i,n:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        For i:=2 to n do
        Begin
                If i mod 2=1 then s:=s+1/i;
        end;
        writeln('Tong day so tren la: ',s:4:2);
        readln;
end.

2/

Program BTH;
uses crt;
var s:real;
i,n:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        For i:=2 to n do
        Begin
                If i mod 2=0 then s:=s+1/i;
        end;
        writeln('Tong day so tren la: ',s:4:2);
        readln;
end.

3/

Program BTH;
uses crt;
var s:real;
i:longint;
Begin
        clrscr;
        For i:=2 to 15 do
        Begin
                s:=s+1/i;
        end;
        writeln('Tong day so tren la: ',s:4:2);
        readln;
end.