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

Question

Информатика

Захарыч

18 января, 23:08

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

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