Дан прямоугольный треугольник с катетами a и b . найти гипотенузу c Составить программу (информатика)
Program z; var a,b,c:real; begin writeln('Введите длину катетов'); read(a,b); c:=sqr(a) + sqr(b); c:=sqrt(c); writeln('Гипотенуза = ',c); end.