sử dụng câu While…do hãy viết pt tính tổng sau: S= 1/1.2 + 1/2.3 + 1/3.4 +-+ 1/n(n+1) giúp mình với!! Mình cần gấp lắm!!!

0 bình luận về “sử dụng câu While…do hãy viết pt tính tổng sau: S= 1/1.2 + 1/2.3 + 1/3.4 +-+ 1/n(n+1) giúp mình với!! Mình cần gấp lắm!!!”

1. program whiledo;

   uses crt;

   var S:integer;

         i,n:integer;

   begin clrscr;

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

        S:=0; i:=1;

      while i<=n do

        begin

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

        end;

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

   readln;

   end.

   Học tốt!

   Bình luận

2. program oken;
   uses crt;
   var n,i: integer;
       s: real;
   begin
           clrscr;
           write(‘nhap n: ‘); readln(n);
           i:=1;
           while i<=n do
                   begin
                           s:=s+ 1/(i*(i+1));
                           i:=i+1;
                   end;
           writeln(‘Tong S: ‘,s:0:3);
           readln;
   end.

   Bình luận