Даны два неотрицательных числа a и b. найдти их среднее геометрическое, т.е квадратный...

Question

Даны два неотрицательных числа a и b. найдти их среднее геометрическое, т.е квадратный корень из их произведения: Sgrt(a*b)

Answer 1

Var a,b :real;
begin
Write('Введите 2 числа а и b'); ReadLn(a,b);
Write('Среднее геометрическое чисел ',a, '  и ',b,' = ',sqrt(a*b));
end.