Question

2. Даны катеты прямоугольного треугольника . Найти его гипотенузу и периметр напишите программу паскаль

Answer 1

// PascalABC.NET
// Даны катеты прямоугольного треугольника.
// Найти его гипотенузу и периметр.

var
    a, b : real;
    
begin
    write('Введите длину катета а: ');
    readln(a);
    write('Введите длину катета b: ');
    readln(b);
    var c := sqrt( sqr(a) + sqr(b) );
    var p := a + b + c;
    writeln('Длина гипотенузы равна ', c);
    writeln('Периметр треугольника равен ', p)
end.