Question

Даны два числа. Найдите среднее арифметическое кубов этих чисел.

Answer 1

program z1;
var
A, B : Real;
begin
Write('Введите 1 число: '); ReadLn(A);
Write('Введите 2 число: '); ReadLn(B);
WriteLn('среднее арифметическое кубов = ', (A*A*A+B*B*B)/2:4:2);
WriteLn('среднее геометрическое = ', Sqrt(ABS(A)*ABS(B)):4:2);
end.