Вычислить среднее арифметическое чисел от n до m. Цикл с параметром. - Free Pascal
Формулировка задачи:
При помощи for...do
Вычислить среднее арифметическое чисел от n до m
Решение задачи: «Вычислить среднее арифметическое чисел от n до m. Цикл с параметром.»
textual
Листинг программы
var
n, m, i, s: integer;
begin
Write('Введите n и m: '); ReadLn(n, m);
for i:=n to m do s:=s+i;
WriteLn('Среднее арифметическое: ', s/(m-n+1));
end.
Объяснение кода листинга программы
- Ввод значений переменных n и m с помощью функции ReadLn.
- Инициализация переменной i значением n.
- Инициализация переменной s значением 0.
- Цикл for, выполняющийся от i до m.
- При каждой итерации цикла значение переменной i увеличивается на 1.
- Значение переменной i добавляется к переменной s.
- После окончания цикла выводится сообщение с результатом вычисления среднего арифметического, используя формулу s/(m-n+1).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д