A=1/1*3+1/2*4+1/3*5+…+1/n(n+2) Hãy viết CHƯƠNG TRÌNH pascal để tính tổng A (n là số tự nhiên nhập từ bàn phím)

0 bình luận về “A=1/1*3+1/2*4+1/3*5+…+1/n(n+2) Hãy viết CHƯƠNG TRÌNH pascal để tính tổng A (n là số tự nhiên nhập từ bàn phím)”

1. uses crt;

   var n:longint;

   A:real;

   begin 

   clrscr;

   readln(n);

   while n> 0 do

   begin

     A:=A+1/n*(n+);

   dec(i);

   write(‘A = ‘,A);

   readln;

   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var n,i: longint;
       s: extended;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0;
           For i:=1 to n do
                   s:=s+1/(i*(i+2));
           Write(‘S = ‘,s:0:2);
           Readln
   End.

   Bình luận