На отрезке от a до b найти среднее арифметическое всех чисел, включая концы отрезка (решить на Turbo Pascal)

Для того чтобы найти среднее арифметическое всех чисел на отрезке от a до b, включая концы отрезка, в языке Turbo Pascal можно использовать следующий алгоритм.

1. Вводим два целых числа: a и b.

2. Находим сумму всех чисел от a до b.

3. Для этого можно просто сложить все числа в цикле.

4. После этого делим сумму на количество чисел на отрезке, которое равно (b - a + 1).

5. Результат деления будет искомым средним арифметическим.

Пример кода на Turbo Pascal:

pascal
program Average;
var
  a, b, sum, count, i: integer;
  average: real;
begin
  { Вводим значения отрезка }
  write('Введите начало отрезка a: ');
  readln(a);
  write('Введите конец отрезка b: ');
  readln(b);

  { Инициализируем переменные }
  sum := 0;
  count := b - a + 1;

  { Находим сумму всех чисел на отрезке }
  for i := a to b do
    sum := sum + i;

  { Вычисляем среднее арифметическое }
  average := sum / count;

  { Выводим результат }
  writeln('Среднее арифметическое чисел на отрезке от ', a, ' до ', b, ' равно: ', average:0:2);
end.

Пояснение:

• В этом коде мы сначала вводим значения a и b, которые задают отрезок.

• Далее мы вычисляем сумму чисел от a до b с помощью цикла for.

• После вычисления суммы чисел, мы делим её на количество чисел на отрезке (b - a + 1) и выводим результат в формате с двумя знаками после запятой.