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.

Answer 2

Алгоритм определения среднего геометрического значения чисел А и В будет следующим: 1. Установить переменную result в значение 1. 2. Вычислить произведение чисел А и В и присвоить его результату переменной result. 3. Взять квадратный корень из значения переменной result и присвоить его новому значению переменной result. 4. Вывести значение переменной result. Таким образом, среднее геометрическое значение чисел А и В будет равно значению переменной result.