Чтобы вычислить длину гипотенузы, надо возвести катеты в квадрат, сложить их и вычислить корень квадратный.
Сюда подойдет первая программ:
var
n,z,h:real;
begin
writeln('Введи длины катетов n и z ');
readln(n,z);
h:=sqrt(sqr(n)+sqr(z));
writeln('h=',h:8:2);
readln;
end.
Вот эта программа
Объяснение:
var
n,z,h:real;
begin
writeln('Введи длины катетов n и z ');
readln(n,z);
h:=sqrt(sqr(n)+sqr(z));
writeln('h=',h:8:2);
readln;
end.