Составить программы на языке Паскаль:
Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.
Ответы
Ответ дал:
0
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите два числа:');
Println('Среднее арифметическое кубов равно',
(a ** 3 + b ** 3) / 2);
Println('Среднее геометрическое модулей равно',
Sqrt(Abs(a * b)))
end.
Приложения:
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад