Даны два числа. Найдите среднее арифметическое кубов этих чисел.
Даны два числа. Найдите среднее арифметическое кубов этих чисел.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы