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

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

Question

Аленя

22 января, 03:56

+5

Ответы (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.программа в паскале