Ребят, помогите! Нужно найти сумму (информатика, паскаль)

1^2+2^2+3^2+4^2 ... n^2

Question

Эсфирь

28 мая, 09:08

+5

Ответы (1)

Знаете ответ на вопрос?

Денисья · Answer 1

Var a, n, i, s:integer;

begin

readln (n) ;

s:=0;

for i:=1 to n do

begina:=sqr (i) ;

s:=s+a;

end;

writeln (s) ;

end.

Ребят, помогите! Нужно найти сумму (информатика, паскаль)1^2+2^2+3^2+4^2 ... n^2