ПАСКАЛЬ!.Нужно найти среднее арифметическое всех целых чисел от a до b.ФОРМАТ

ПАСКАЛЬ!.Нужно отыскать среднее арифметическое всех целых чисел от a до b.
ФОРМАТ ВХОДНЫХ ДАННЫХ:
Вводятся два целых числа a и b(-2в15lt;или равно alt; либо одинаково blt; или одинаково 2в15 -1)
Формат выходных данных:
Нужно вывести одно число разыскиваемое среднее, с точностью не наименее шести знаков после запятой.

Задать свой вопрос
1 ответ
Var  
 a,b,i:integer; 
 s:real;
begin 
 write('введите a: '); readln(a); 
 write('введите b: '); readln(b); 
 s:=0; 
 for i:=a to b do s:=s+i; 
 s:=s/(b-a+1); 
 write('Среднее арифметическое: '); 
 writeln(s:10:6);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт