Катеты прямоугольного треугольника A и B соответственно равны 125, 127. Написать программу, определяющую площадь и периметр треугольника.

1

Ответы и объяснения

2014-01-22T19:14:15+04:00
Var
  a, b, c: Real;
begin
  a := 125;
  b := 127;

  c := sqrt( sqr(a) + sqr(b) );  
  
  Writeln('S = ', a * b / 2);
  Writeln('P = ', a + b + c);
end.