Question

[Ngô Chí Thành]

Lập trình tính tổng:

S=\(1^2+2^2+3^2+....+n^2\) ( n được nhập vào từ bàn phím ) . 

 

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;

var i,n:longint;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

  s:=s+sqr(i);

writeln(s:0:0);

readln;

end.