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

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

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

Евгения Яхья 2019-09-22 07:10:32

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

Рита Бердикян 2019-09-22 07:07:57

Либо так:

Дима Шелкоплясов 2019-09-22 07:12:12

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