Нилович
6 год назад
Вопрос №591394 (тип: C)Даны два целых числа a и b.Напишите программу, которая находит среднее арифметическое квадратов всех целых чисел от a до bВходные данные: В первой строке вводятся два целых числа a и b (a<=b,a,b не больше 100 по модулю)Выходные данные:Программа должна вывести одно число - среднее арифметическое квадратов всех целых чисел от a до b (c 2 знаками после запятой)
ОТВЕТЫ
Минко
Oct 24, 2020
Program n1;
var a,b,i: integer;
sum,k: real;
begin
sum:=0;
k:=0;
readln(a,b);
for i:=a to b do
begin
sum:=sum+i*i;
k:=k+1;
end;
writeln(sum/k:6:2);
end.
var a,b,i: integer;
sum,k: real;
begin
sum:=0;
k:=0;
readln(a,b);
for i:=a to b do
begin
sum:=sum+i*i;
k:=k+1;
end;
writeln(sum/k:6:2);
end.
497
Смежные вопросы:
