Составить программы на языке Паскаль:
Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.
Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.
More Questions From This User See All
Answers & Comments
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите два числа:');
Println('Среднее арифметическое кубов равно',
(a ** 3 + b ** 3) / 2);
Println('Среднее геометрическое модулей равно',
Sqrt(Abs(a * b)))
end.