Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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