Найти среднее арифметическое квадратов первых 10 натуральных чисел

Question

Информатика

Зинка

Вчера, 14:40

Найти среднее арифметическое квадратов первых 10 натуральных чисел

+5

Ответы (1)

Знаете ответ на вопрос?

Егор · Answer 1

Program aliona;

var s, i:integer;

sr:real;

begin

sr: = 0;

s:=0;

for i: = 1 to 10 do

begin

s:=s+sqr (i) ;

sr:=s/10

end;

writeln ('sr=', sr) ;

readln;

end.