Question

Даны три числа . найти среднее арифметическое и среднее геометрическое этих чисел.Паскаль,для программы Algo

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

begin

 var (a, b, c) := ReadInteger3('a,b,c->');

 Println('Среднее арифметическое:', Round((a + b + c) / 3, 3));

 Println('Среднее геометрическое:', Round(Power(a * b * c, 1 / 3), 3));

end.

Answer 2

Конечно, давайте рассмотрим, как можно найти среднее арифметическое и среднее геометрическое для трех чисел.

Предположим, у нас есть три числа \( a \), \( b \) и \( c \).

Среднее арифметическое:

Среднее арифметическое \( A \) для трех чисел \( a \), \( b \) и \( c \) можно найти, сложив все числа и поделив сумму на количество чисел.

Формула для среднего арифметического: \[ A = \frac{a + b + c}{3} \]

Среднее геометрическое:

Среднее геометрическое \( G \) для трех чисел \( a \), \( b \) и \( c \) можно найти путем умножения чисел и извлечения из произведения корня степени, равной количеству чисел (в данном случае 3).

Формула для среднего геометрического: \[ G = \sqrt[3]{a \cdot b \cdot c} \]

Пример решения на языке Pascal:

program AverageCalculations;
var
  a, b, c, averageArithmetic, averageGeometric: real;
begin
  writeln('Введите три числа: ');
  readln(a, b, c);

// Вычисление среднего арифметического
  averageArithmetic := (a + b + c) / 3;

// Вычисление среднего геометрического
  averageGeometric := power(a * b * c, 1 / 3);

writeln('Среднее арифметическое: ', averageArithmetic:0:2);
  writeln('Среднее геометрическое: ', averageGeometric:0:2);
end.

Этот код запрашивает у пользователя три числа, затем вычисляет и выводит их среднее арифметическое и среднее геометрическое.