Question

Viết chương trình tính tổng bình phương của n số nguyên đầu tiên. In kết quả ra màn hình.

Answer 1

var i,n,m: integer;
begin
m:=0;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
m:= m+i*i;
write(‘Tong binh phuong: ‘,m);
readln;
end.