Даны две стороны прямоугольника а,b. напишите функцию,которая - вопрос №10450596 от sdfxcg 21.01.2023 08:59

Question

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

sdfxcg · Answer

PascalABC.NET

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

begin

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

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

end.