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

Question

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

Answer 1

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

Answer 2

Var
  a, b, c: real;
Begin
  Write('Введите длину катета: ');
  ReadLn(a);
  Write('Введите длину гипотинузы: ');
  ReadLn(c);
  b := sqrt(c*c - a*a);
  WriteLn('Периметр треугольника: ',a+b+c);
End.

Comments

Спасибо! помог )