Составить программу нахождения среднего арифметического и среднего геометрического модулей двух чисел (Pascal ABC)

11 Мар 2020 в 19:42
151 +1
0
Ответы
1

program Average;

var
num1, num2, sum, product: real;
arithmeticAverage, geometricAverage: real;

begin
// Ввод чисел
writeln('Введите два числа:');
readln(num1);
readln(num2);

// Находим среднее арифметическое
sum := abs(num1) + abs(num2);
arithmeticAverage := sum / 2;

// Находим среднее геометрическое
product := abs(num1) * abs(num2);
geometricAverage := sqrt(product);

// Вывод результатов
writeln('Среднее арифметическое: ', arithmeticAverage:0:2);
writeln('Среднее геометрическое: ', geometricAverage:0:2);
end.

18 Апр 2024 в 16:18
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир