tính tổng A=1*2+2*3+3*4+…+n ( với n được nhập từ bàn phím)

0 bình luận về “tính tổng A=1*2+2*3+3*4+…+n ( với n được nhập từ bàn phím)”

1. Var

   A,i,n: integer;

   begin

   A:= 1;

   For i:= 1 to n do 

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

   writeln(A);

   readln;end.

   Bình luận

2. begin

        clrscr;

     write(‘Nhap so n: ‘);Readln(n);

     A:= 0;

     for i:= 1 to n do

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

    write(A’);

   readln

   end.

   Bình luận