Даны две стороны прямоугольника а,b. напишите функцию,которая - вопрос №10450371 от nikvermenox7gay 01.11.2020 12:52

Question

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

nikvermenox7gay · Answer

PascalABC.NET

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

begin

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

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

end.