Отыскать среднее арифметическое квадратов всех целых чисел от a до b.

Отыскать среднее арифметическое квадратов всех целых чисел от a до b. (Значения a и b вводятся с клавиатуры.)

Задать свой вопрос
1 ответ
program z1;
uses crt;
var i,a,b,n:integer;s:real;
begin
readln(a,b);
for i:= a to b do begin
s:=s+sqr(i); n:=n+1; nbsp;nbsp;end;
s:=s/n;
writeln (s);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт