Question

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

Answer 1

Var a,b:integer;
sr1,sr2:real;
begin
read(a,b);
sr1:=(a*a*a+b*b*b)/2;
sr2:=sqrt(abs(a)*abs(b));
writeln(sr1:3:2);
writeln(sr2:3:2);
end.