Найти среднее арифметическое квадратов всех целых чисел от 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.
Не нашли ответ?
Похожие вопросы