Решите подалуйста задачу ** PascalABC 5. Напишите функцию, находящую гипотенузу...

Question

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

Comments

function Hypo(a, b: real) := Sqrt(a*a + b*b);begin var (a, b) := ReadInteger2(); Print(Hypo(a, b) + a + b)end.

---

Или так:

---

begin var Hypo: (real,real) -> real := (a, b) -> Sqrt(a * a + b * b); var (a, b) := ReadInteger2(); Print(Hypo(a, b) + a + b)end.

Answer 1

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

begin

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

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

end.

---