Question

Написать программу и процедуру в паскале, вызываемую из основной программы для вычисления гипотенузы и площади прямоугольного треугольника, если известны его катеты.

Answer 1

// PascalABC.NET

procedure Tri(a, b: real; var c, S: real);

begin

 c := Sqrt(a * a + b * b);

 S := a * b / 2

end;

begin

 var (a, b) := ReadReal2('Введите длины катетов:');

 var c, S: real;

 Tri(a, b, c, S);

 Print('Гипотенуза', c, '   площадь', S)

end.