VCT tính tổng
$a1^{1}$ + $a2^{2}$ + $a3^{3}$ +…+ $aN^{N}$
với n đc nhập từ bàn phím

Question

VCT tính tổng  $a1^{1}$ + $a2^{2}$ + $a3^{3}$ +...+  $aN^{N}$ với n đc nhập từ bàn phím

tuyetnhung · Answer

program tinhtong;

uses crt;

var A:array[1..100] of integer;

n,i,j:integer;

gt,s:int64;

begin

clrscr;

write(‘Nhap so luong phan tu n: ‘); readln(n);

s:=0;

for i:=1 to n do

begin

write(‘A[‘,i,’]= ‘); readln(A[i]);

gt:=1;

for j:=1 to i do gt:=gt*A[i];

S:=S+gt;

end;

write(‘Tong la: ‘,s);

readln;

end.

0 bình luận về “VCT tính tổng $a1^{1}$ + $a2^{2}$ + $a3^{3}$ +…+ $aN^{N}$ với n đc nhập từ bàn phím”