Составить программу для паскаль,которая вычисляет гипотенузу прямоугольного треугольника с каттами 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.