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

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

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

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.