Question

Составить программы на языке Паскаль: Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.

Answer 1

===== PascalABC.NET =====

begin

 var (a, b) := ReadReal2('Введите два числа:');

 Println('Среднее арифметическое кубов равно',

     (a ** 3 + b ** 3) / 2);

 Println('Среднее геометрическое модулей равно',

     Sqrt(Abs(a * b)))

end.

Answer 2

Вот программы на языке Pascal для нахождения среднего арифметического кубов двух чисел и среднего геометрического модулей этих чисел:

pascalCopy code
program CalculateAverages;
var
  num1, num2, averageArithmeticCubes, averageGeometricModules: real;
begin
  writeln('Введите первое число: ');
  readln(num1);

  writeln('Введите второе число: ');
  readln(num2);

  // Находим среднее арифметическое кубов чисел
  averageArithmeticCubes := (power(num1, 3) + power(num2, 3)) / 2;

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

  writeln('Среднее арифметическое кубов чисел: ', averageArithmeticCubes:0:2);
  writeln('Среднее геометрическое модулей чисел: ', averageGeometricModules:0:2);

  readln;
end.

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