Составить программу ** паскаль:найти гипотенузу если известно 2 катета

Question

Составить программу на паскаль:найти гипотенузу если известно 2 катета

Comments

Теорема Пифагора... корень квадратный из суммы квадратов катетов.

Answer 1

Program N_1;
Var a,b: real;
Begin  
write('Введите числа a,b: ');
readln(a,b);
writeln('Гипотенуза равна = ',sqr(a)+sqr(b):0:2);
readln;
End.