program FindHypotenuse; var a, b, c: real; // катеты и гипотенуза begin write('Введите длину первого катета: '); readln(a); write('Введите длину второго катета: '); readln(b); c := sqrt(a * a + b * b); // формула нахождения гипотенузы по двум катетам writeln('Длина гипотенузы: ', c:0:2); end.
Программа запрашивает у пользователя длины двух катетов прямоугольного треугольника, а затем вычисляет и выводит длину гипотенузы.
var
a, b, c: real; // катеты и гипотенуза
begin
write('Введите длину первого катета: ');
readln(a);
write('Введите длину второго катета: ');
readln(b);
c := sqrt(a * a + b * b); // формула нахождения гипотенузы по двум катетам
writeln('Длина гипотенузы: ', c:0:2);
end.
Программа запрашивает у пользователя длины двух катетов прямоугольного треугольника, а затем вычисляет и выводит длину гипотенузы.