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

Question

Информатика

Палладий

7 июня, 07:02

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

+1

Ответы (1)

Знаете ответ на вопрос?

Арина · 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.