Viết chương trình tính tổng A= 1.2+2.3+…+n (n+1) trong đó n là số nguyên nhập từ bàn phím
Giúp mik với ạ
Viết chương trình tính tổng A= 1.2+2.3+…+n (n+1) trong đó n là số nguyên nhập từ bàn phím Giúp mik với ạ
By Autumn
By Autumn
Viết chương trình tính tổng A= 1.2+2.3+…+n (n+1) trong đó n là số nguyên nhập từ bàn phím
Giúp mik với ạ
uses crt;
var a:longint;
i,n: integer;
begin
clrscr;
write(‘nhap n: ‘); readln (n);
for i:=1 to n do a:=a+(i*(i+1));
writeln (‘tong A la: ‘,a);
readln;
end.
xin hay nhất nhé !!!
program tong;
uses crt;
var n,i,A: integer;
Begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do A:=A+i*(i+1);
write(‘A = ‘,A);
readln
End.