Công thức chung: Với một số i thì tổng sẽ tăng lên: i x $2^{i-1}$
Chương trình:
uses crt; var i,n,s:longint; function lt(a,b:longint):longint; var i:longint; begin lt:=1; for i:=1 to b do lt:=lt*a; end; begin clrscr; write('Nhap n: ');readln(n); for i:=1 to n do s:=s+i*lt(2,i-1); writeln('Tong= ',s); readln end.
