Question

Заданы числа А, В. Составьте алгоритм определения их среднего геометрического значения. Среднее геометрическое вычисляется как корень квадратный от произведения чисел.
​

Answer 1

Ответ:

program Calc;

var

 a, b: Double;

begin

 Write ('A, B = ');

 ReadLn (a, b);

 if (a <> 0) and (b <> 0) then

   WriteLn ('Результат = ', Sqrt (a * b) :20 :20)

 else

   WriteLn ('Деление на 0');

 ReadLn;

end.