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

Question

Информатика

Артемыч

26 июня, 02:19

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

+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.