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

Question

Лилиана

10 августа, 19:19

+3

Ответы (1)

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

Агапа · Answer 1

Var a, b, c:real;

begin

writeln ('Введите значение гипотенузы и катета:') ;

read (c, a) ;

b : = sqrt (c*c - a*a) ;

write (b) ;

end;