В паскале Дана гипотенуза равнобедренного прямоугольного треугольника. Определить, чему равны катеты данного треугольника.

var

c, a: real;

begin

/ / реализовываем ввод

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

readln (c);

/ / длину катета равнобедренного прямоугольного треугольника равна корню квадратному из

//квадрата гипотенузы деленного на два

a : = sqrt (c*c/2);

/ / вывод результата

writeln ('Длина катетов равнобедренного прямоугольного треугольника с гипотенузой равной ', c,' равна ', a:0:2)

end.