Найти среднее арифметическое квадратов всех целых чисел от единицы до ста

Question

Ярослав Соколов

Информатика

31 декабря, 21:23

Найти среднее арифметическое квадратов всех целых чисел от единицы до ста

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Демид Сорокин · Answer 1

program kvadrat;

var a, b, c, i : integer;

begin

for i : = 1 to 100 do

begin

a: = a+i*i;

b: = b + i*i;

end;

c: = a/b;

writeln ('среднее арифметическое квадратов всех чисел от 1 до 100 = ', c);

end.