Question

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

Answer 1

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

Answer 2

Для решения этой задачи нам необходимо найти сумму квадратов всех целых чисел от 1 до k, а затем разделить эту сумму на количество чисел.

Сначала найдем сумму квадратов всех целых чисел от 1 до k. Для этого мы можем использовать формулу суммы квадратов: S = k(k+1)(2k+1)/6

Теперь найдем количество чисел от 1 до k, которое равно k.

Итак, среднее арифметическое квадратов всех целых чисел от 1 до k можно найти по формуле: Среднее = S/k

Где S - сумма квадратов всех чисел от 1 до k, а k - количество чисел.

Теперь у нас есть формула для нахождения среднего арифметического квадратов всех целых чисел от 1 до k.