Вычисление катета прямоугольного треугольника. (Паскаль)

Question

Информатика

Анастасий

3 ноября, 03:44

Вычисление катета прямоугольного треугольника. (Паскаль)

+3

Ответы (1)

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

Лидуха · Answer 1

Program h;

Var a, b:real;

Begin

Writeln ('Введите длину гипотенузы') ;

Readln (a) ;

Writeln ('Введите длину катета') ;

Readln (b) ;

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

Writeln (' Длина катета', ' ', b) ;

End.