02 Фев 20150 КомментариевPascal Решение задачи Begin12 Условие задачи:Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P: c = (a2 + b2)1/2, P = a + b + c. uses PT4; var a, b, c, p: real; begin Task('Begin12'); read(a, b); c := sqrt(sqr(a) + sqr(b)); p := a + b + c; write(c, p); end. Поделиться:
