Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.