Viết chương trình tính tổng: s=1/1*3+1/3*5+…+1/n*(n+2) Giúp mình với ạ :)

0 bình luận về “Viết chương trình tính tổng: s=1/1*3+1/3*5+…+1/n*(n+2) Giúp mình với ạ :)”

1. uses crt;

   var i,n:integer;

   s:real;

   begin clrscr;

   write(‘nhap so n=’);

   readln(n);

   s:=1; i:=3;

   while i<=n do begin s:=s*1/i*(i+2); i:=i+2; end;

   write(‘tong s=’);

   readln

   end.

   Bình luận

2. program ct;

   uses crt;

   var n,i:integer; S:real;

   begin

   clrscr;

     write(‘nhap n:=’);readln(n);

      S:=1; i:=3;

        while i<=n then

    begin

      i:=i+2;

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

    end;

     writeln(‘tong la:’,S);

   readln

   end.

                     

   Bình luận