Question

Дан катет и гипотенуза прямоугольного треугольника. Найти периметр этого треугольника
Паскаль
Помогите пожалуйста)

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,c):=ReadReal2();
write('P=',a+sqrt(c*c-a*a)+c);
end.