Question

Помогите пожалуйста!!!Это нужно сделать на языке Паскаля...Срочно нужно,я не понимаю как это делать

Answer 1

Вычисление площади по формуле Герона:

Var a,b,c,p,S:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a<b+c)and(b<c+a)and(c<a+b) then
   Begin
   p:=(a+b+c)/2;
   S:=Sqrt(p*(p-a)*(p-b)*(p-c));
   WriteLn('S = ',S);
   End
else WriteLn('Треугольник abc не существует');
End.



Примеры работы программы:

a = 3
b = 4
c = 5
S = 6

a = 1
b = 2
c = 3
Треугольник abc не существует