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

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

Question

Минуша

22 сентября, 10:21

+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