Цикл: вычислить среднее арифметическое четных чисел на отрезке 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.
Объяснение кода листинга программы
- В первой строке объявляются четыре переменные (a, b, sum, count) и инициализируются значениями, которые считываются из консоли с помощью функции ReadlnInteger()
- Переменные a и b хранят начальное и конечное значение отрезка AB
- Переменная sum инициализируется нулем и используется для хранения суммы четных чисел
- Переменная count инициализируется нулем и используется для подсчета количества четных чисел
- В цикле for перебираются все числа от a до b
- Для каждого числа проверяется его четность с помощью оператора % (остаток от деления)
- Если число четное, то оно прибавляется к sum и count увеличивается на единицу
- После окончания цикла выводится среднее арифметическое sum и count с помощью деления sum на count