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/

0 bình luận về “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/”

1. 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.

   Bình luận