Вычислить площадь треугольника заданного своими сторонами, предварительно проверив...

Question

Вычислить площадь треугольника заданного своими сторонами, предварительно проверив существование данного треугольника
В паскале
Пожалуйста, очень нужно))

Comments

Площадь вычислять по 3 сторонам?

Answer 1

Var
a,b,c:integer;
p,s:real;
begin
write('Введите значение A=');read(a);
write('Введите значение B=');read(b);
write('Введите значение C=');read(c);
p:=a+b+c/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
if (awriteln('Треугольник существует')
else
writeln('Треугольник не существует');
writeln('Площадь треугольника=', S:5:2);
end.