Viết chương trình tính tổng S = 1/1+1/3+1/5+1/7+…+1/2n+1(n€N) ( với số n được nhập từ bàn phím )

0 bình luận về “Viết chương trình tính tổng S = 1/1+1/3+1/5+1/7+…+1/2n+1(n€N) ( với số n được nhập từ bàn phím )”

1. Program ct;

   Uses crt;

   Var i,n:integer;  s:real;

   Begin

   Clrscr;

   Write(‘nhap n=’);readln(n);

   S:=0;

   For i:=1 to n do

   If i mod 2=1 then s:=s+1/i;

   Writedln(s);

   Readln

   End.

   Bình luận

2. program oken;
   uses crt;
   var n,i: integer;
       s: real;
   begin
       clrscr;
       write(‘nhap 1 so bat ky: ‘); readln(n);
       s:=0;
       for i:=1 to n do
           if i mod 2=1 then
               s:=s+1/i;
       write(‘Tong S: ‘,s:0:3);
       readln;
   end.
           

   Bình luận