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

Найти среднее арифметическое квадратов всех целых чисел от 1 до k (k вводится с клавиатуры) паскаль
Гость
Ответ(ы) на вопрос:
Гость
var i,k,sum:integer; begin readln(k); for i:=1 to k do   sum:= sum+sqr(i);  write(sum/k:5:2); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы