Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Даны три числа a, b, c. Проверить могут ли эти числа быть дли-
нами сторон треугольника. Если да, то вычислить и напечатать периметр и
площадь треугольника со сторонами a, b, c. Если нет, то печатать число 0.
p.s. напишите код для PascalABC.NET

Ответ оставил Гость

Var
  a,b,c,p,s:real;
begin
  Write(Введите стороны треугольника: );
  Read(a,b,c);
  if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then begin
    p:=(a+b+c)/2;
    s:=sqrt(p*(p-a)*(p-b)*(p-c));
    Writeln(p=,2*p:0:2,, s=,s:0:4)
  end
  else Writeln(0)
end.