Язык програмирования PASKAL/ задача: Даны катеты прямоугольного треугольника .Найти его...

Question

Язык програмирования PASKAL/
задача:
Даны катеты прямоугольного треугольника .Найти его гипотенузу

Answer 1

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