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

паскаль

Question

Енюша

24 апреля, 09:39

+1

Ответы (1)

Знаешь ответ?

Леруня · 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.

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