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

Question

Информатика

Мартиниана

19 мая, 22:23

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

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