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

Question

Елизаветка

1 августа, 11:49

+2

Ответы (1)

Знаете ответ на вопрос?

Пиама · Answer 1

Var a, b, c:real;

begin

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

read (c, a) ;

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

write (b) ;

end;