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)

– 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