uses crt; var n,i,j,l,gt,lt,x,s:longint; begin clrscr; write('Nhap x,n: ');readln(x,n); lt:=1; for i:=1 to n do begin lt:=lt*x; gt:=1; for j:=1 to lt do gt:=gt*j; s:=s+lt; end; writeln('Tong la: ',s); readln end.
uses crt; var n,x,i,j,res,result,sum:longint; begin clrscr; readln(x,n); res:=1; for i:=1 to n do begin res:=res*x; result:=1; for j:=1 to res do result:=result*j; inc(sum,res); end; write(sum); readln; end.