Question

Даны две стороны прямоугольника а,b. Напишите функцию,которая будет определять сторону квадрата k, соразмерного (одинакового) по площади данного прямоугольника S=a*b

Answer 1

===== PascalABC.NET =====

function Side(a, b: real) :=  Sqrt(a * b);

begin

var (a, b) := ReadReal2('Задайте стороны прямоугольника:');

Print('Сторона равновеликого ему квадрата равна', Side(a, b))

end.