Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P: c = (a^2 + b^2)^1/2, P = a + b + c. (программа Паскаль)

Question

Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P:
c = (a^2 + b^2)^1/2, P = a + b + c.

Answer 1

var
a, b, c, P: real;
begin
writeln('Введите два катета прямоугольного треугольника:');
readln(a, b);
P := a + b; { <-- сумма катетов }
c := sqrt(sqr(a) + sqr(b)); { <-- гипотенуза с }
P := P + c; { <-- периметр P }
writeln('Результат:');
writeln(' c = ', c:0:2);
writeln(' P = ', P:0:2);
readln
end.