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

паскаль

Question

Вонифат

18 мая, 14:53

+3

Ответы (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 вводится с клавиатуры)паскаль