Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var k:integer;
function sr(n:integer):real;
var i,s:integer;
begin
s:=0;
for i:=1 to n do s:=s+i*i;
sr:=s/n;
end;
begin
write(k=); readln(k);
writeln(Среднее арифметическое = , sr(k));
end.

Пример:
k=5
Среднее арифметическое = 11