Даны две стороны прямоугольника а,b. напишите функцию,которая - вопрос №10450771 от cfxdcvbnm 17.03.2020 22:29

Question

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

cfxdcvbnm · Answer

PascalABC.NET

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

begin

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

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

end.