На отрезке от a до b найти среднее арифметическое всех чисел, включая концы отрезка(решить на Turbo Pascal)
На отрезке от a до b найти среднее арифметическое всех чисел, включая концы отрезка(решить на Turbo Pascal)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
a, b, sum, count, average: Integer;
begin
sum := 0;
count := 0;
Write('Enter the starting point (a): ');
Readln(a);
Write('Enter the ending point (b): ');
Readln(b);
for i := a to b do
begin
sum := sum + i;
count := count + 1;
end;
average := sum / count;
WriteLn('The average of numbers from ', a, ' to ', b, ' is: ', average);
end.