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

Question

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

Answer 1

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

begin

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

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

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

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

     Sqrt(Abs(a * b)))

end.

---