viết chương trình sau bằng lệnh for -do A=1 /1.3+1/2.4+/3.5+-…+1/n(n+2)

viết chương trình sau bằng lệnh for ….do
A=1 /1.3+1/2.4+/3.5+…….+1/n(n+2)

0 bình luận về “viết chương trình sau bằng lệnh for -do A=1 /1.3+1/2.4+/3.5+-…+1/n(n+2)”

  1. program tong;

    uses crt;

    var n,i: integer;

          A: real;

    Begin

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

             for i:=1 to n do A:=A+1/(i*(i+2));

             write(‘A = ‘,A:2:2);

             readln

    End.

    Bình luận
  2. program tong_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/(i*(i+2));

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

           readln;

    end.

    Bình luận

Viết một bình luận