Question

Дан прямоугольный треугольник с катетами a и b . найти гипотенузу c Составить программу (информатика)

Answer 1

Program z;
var a,b,c:real;
begin
writeln('Введите длину катетов');
read(a,b);
c:=sqr(a) + sqr(b);
c:=sqrt(c);
writeln('Гипотенуза = ',c);
end.