Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P: c =√(a2 + b2), P = a + b + c — Pascal(Паскаль)

program gip;
var a, b, c, p: real; 
begin
    write('Введите два катета прямоугольного треугольника: ');
    read(a, b);
    c := sqrt(sqr(a) + sqr(b));
    p := a + b + c;
    writeln('Периметр -- ', p:5:2);
    writeln('Гипотенуза -- ', c:5:2);
end.

Leave a Comment

84 + = 89