viết chương trình pascal tính A=1/(2*3)+1/(3*4)+1/(4*5)+…+1/((1+n)*(2+n))

0 bình luận về “viết chương trình pascal tính A=1/(2*3)+1/(3*4)+1/(4*5)+…+1/((1+n)*(2+n))”

1. program tinh_A;

   uses crt;

   var n,i:integer;

         A:real;

   begin

         clrscr;

         write(‘Nhap n: ‘);  readln(n);

         A:=0;

         for i:=1 to n do

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

         write(‘A= ‘,A:0:3);

         readln;

   end.

   Bình luận

2. program phuongt;
   uses crt;
     var n, i: integer;
           A: real;
   begin
           clrscr;
           write(‘Nhap n = ‘); readln(n);
           for i:=1 to n do A:=1/((1+i)*(2+i));
           write(‘A = ‘, A:3:1);
           readln
   end.

   Bình luận