Цикл: вычислить среднее арифметическое четных чисел на отрезке AB - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

В школе задали такую задачу: вычислите среднее арифметическое четных чисел на отрезке AB помогите пожалуйста

Решение задачи: «Цикл: вычислить среднее арифметическое четных чисел на отрезке AB»

textual
Листинг программы
begin
  var (a, b, sum, count) := (ReadlnInteger('A ='), ReadlnInteger('B ='), 0, 0);
  for var i := a to b do
    if i mod 2 = 0 then begin
      inc(sum, i);
      inc(count);
    end;
  writeln(sum / count);
end.

Объяснение кода листинга программы

  1. В первой строке объявляются четыре переменные (a, b, sum, count) и инициализируются значениями, которые считываются из консоли с помощью функции ReadlnInteger()
  2. Переменные a и b хранят начальное и конечное значение отрезка AB
  3. Переменная sum инициализируется нулем и используется для хранения суммы четных чисел
  4. Переменная count инициализируется нулем и используется для подсчета количества четных чисел
  5. В цикле for перебираются все числа от a до b
  6. Для каждого числа проверяется его четность с помощью оператора % (остаток от деления)
  7. Если число четное, то оно прибавляется к sum и count увеличивается на единицу
  8. После окончания цикла выводится среднее арифметическое sum и count с помощью деления sum на count

Оцени полезность:

15   голосов , оценка 4.267 из 5
Похожие ответы