Question

Решите подалуйста задачу на PascalABC

5. Напишите функцию, находящую гипотенузу прямоугольного треугольника. Входные параметры функции – катеты a и b. Для нахождения гипотенузы треугольника используйте теорему Пифагора. Примените составленную функцию для нахождения периметра прямоугольного треугольника, заданного своими катетами.

Answer 1

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

begin

 var (a, b) := ReadInteger2();

 Print('Периметр треугольника =', Hypo(a, b) + a + b)

end.

c40fa29eee7341aea47d05e685ca84b5.pas