
Составить программу для паскаль,которая вычисляет гипотенузу прямоугольного треугольника с каттами a b

Program z1;
var a,b,c:real;
begin
read (a,b);
c:=sqrt(sqr(a)+sqr(b));
writeln(c);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Program z1;
var a,b,c:real;
begin
read (a,b);
c:=sqrt(sqr(a)+sqr(b));
writeln(c);
end.