Question

Для заданного натурального n и действительного x подсчитать сумму
S=1^2+2^2+3^2+...+n^2​

Answer 1

var n,s,i:integer;

begin

read(n);

s:=1;

for i:=2 to n do  

s:=s+i*i;

write(s);

end.