Question

Найти среднее арифметическое квадратов всех целых чисел от 1 до k (k вводится с клавиатуры)
паскаль

Answer 1

var
i,k,sum:integer;
begin
readln(k);

for i:=1 to k do
  sum:= sum+sqr(i); 

write(sum/k:5:2);
end.