Question

даны катеты прямоугольного треугольника ab.Найти его гипотенузу c и периметр p.

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;
writeln(' c = ', c:0:2);
writeln(' P = ', P:0:2);
end.