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

Question

Информатика

Андря

2 ноября, 03:19

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

+2

Ответы (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.