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

программа в паскале

Question

Даня

18 июня, 12:21

+3

Ответы (1)

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

Веруша · Answer 1

Var

i:integer;

s:real;

begin

for i:=1 to 100 do s:=s+i*i;

s:=s/100;

writeln ('Среднее квадратов первых 100 чисел: ', s)

end.

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