Найти среднее арифметическое квадратов всех целых чисел от 1 до 100 (программа Паскаль)
Вопрос посетителя
Найти среднее арифметическое квадратов всех целых чисел от 1 до 100
Ответ эксперта
program z1;
uses crt;
var i:integer;s:real;
begin
for i:= 1 to 100 do
s:=s+sqr(i);
s:=s/100;
writeln (s);
end.