Составить программу в Паскале.Даны три положительных числа а,в,с. Проверить, могут ли...

Question

Составить программу в Паскале.Даны три положительных числа а,в,с. Проверить, могут ли быть они длинами сторон треугольник. Если да, то вычислить площадь треугольника. (Нужно учитывать, что стороны не могут равняться нулю. И возможно существование равностороннего треугольника) Основные формулы: а<=б+с, б<а+с, с<=а+б

Answer 1

var a,b,c,p:integer;
begin
  writeln('введите a');
   readln(a);
  writeln('введите b');
   readln(b);
  writeln('введите c');
   readln(c);
  if (a<=b+c) and (b<a+c) and (c<=a+b) then<br>    begin
       p:=(a+b+c) div 2;
       writeln('Треугольник может существовать');
       writeln('Площадь: ', sqrt(p* ((p-a)*(p-b))*((p-c))):1:2);  //Формула герона
    end
  else writeln('Не треугольник');
  readln();
end.