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. uses crt;
   var s:real;
       i,n:integer;
   begin
      write(‘Nhap n: ‘); readln(n);
      s:=1;
      for i:=1 to n do s:=s+(1/(2*i+1));
      write(‘S=’,S:4:2);
      readln
   end.

   Bình luận

2. program ct;

   uses crt;

   var i,n:integer;

         S:real;

   begin clrscr;

      writeln(‘Nhap so n: ‘); readln(n);

        S:=0;

      for i:=0 to n do

        S:=S+1/2*i+1;

      write(‘Tong S la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận