Составьте программу нахождения гипотенузы прямоугольного треугольника если известны его катеты

Question

Информатика

Модеста

19 апреля, 00:30

Составьте программу нахождения гипотенузы прямоугольного треугольника если известны его катеты

+3

Ответы (1)

Знаете ответ?

Калерия · Answer 1

Var

a, b, c, z:real;

begin

writeln ('Введите катет А ') ;

readln (a) ;

writeln ('Введите катет B ') ;

readln (b) ;

z:=sqr (a) + sqr (b) ;

c:=sqrt (z) ;

writeln ('Гипотенуза равна ', c) ;

end.