Question

помогите пожалуйста с решением по информатике :вывести сумму чисел квадратов в промежутке от 1 до n. Число n вводим с клавиатуры ​

Answer 1

program Sanya2263;

var i,n,s: integer;

begin

Read(n);

For i:= 1 to n do

s:=s+sqr(i);

Write(s);

end.

Answer 2

var sum, n, i:integer;

begin

sum:=0;

readln(n);

for i:=1 to n do

sum := sum + i*i;

write(sum);

end.