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

Question

Информатика

Викул

27 октября, 22:07

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