tính tổng A=1*2+2*3+3+4+…+n(n+1)(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(n+1)(với n được nhập từ bàn phím)”

1. – Bạn làm thế này:

   uses crt;

   var s:real;

       n:byte;

   BEGIN

           clrscr;

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

           s:=1;

           while n>1 do

           begin

                  s:=s*n;

                  dec(n);

           end;

           write(s:0:0);

           readln

           END.

   @`Huy2k7`

   @`Otaku`

   Xin hay nhất

   Bình luận

2. uses crt;

   var s:real;

       n:byte;

   BEGIN

           clrscr;

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

           s:=1;

           while n>1 do

           begin

                   s:=s*n;

                   dec(n);

           end;

           write(s:0:0);

           readln

   END.

   Bình luận