Question

Даны два неотрицательных числа a и b.Найти их средние геометрическое,т.е. квадратный корень из их произведений: Sqrt(a 'b).В abc pascal,begin 9

Answer 1

Var
   a,b:integer;
Begin
  Writeln('Введите а и b через пробел');
  Readln(a,b);
  Writeln(sqrt(a*b));
End.

Answer 2

Для нахождения среднего геометрического двух неотрицательных чисел a и b, можно использовать квадратный корень из их произведения. В Pascal это можно сделать с помощью функции Sqrt из модуля Math.

Вот пример кода на Pascal, который находит среднее геометрическое чисел a и b:

program AverageGeometric;
uses Math;

var
  a, b, result: real;

begin
  writeln('Введите значение a:');
  readln(a);
  
  writeln('Введите значение b:');
  readln(b);
  
  result := Sqrt(a * b);
  
  writeln('Среднее геометрическое чисел a и b: ', result:0:2);
end.

В этом примере мы используем функцию `Sqrt` из модуля `Math`, чтобы вычислить квадратный корень из произведения чисел `a` и `b`. Затем результат сохраняется в переменную `result` и выводится на экран с помощью `writeln`.

Надеюсь, это поможет вам понять, как найти среднее геометрическое двух чисел в Pascal. Если у вас есть еще вопросы, пожалуйста, дайте мне знать!