программирование в pascal

Question

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

Роберт Усманов · Accepted Answer

var a,b,c,p:real; 
begin 
write('Длины сторон: '); readln(a,b,c);
p:= (a+b+c)/2; p:=p*(p-a)*(p-b)*(p-c);
if p<=0 then writeln('Треугольник не существует') 
else writeln('S=',sqrt(p)); readln
end.

Rastaman · Answer

Если А+B>C то S= формула площади треугольника по трем сторонам

Ольга Юдина · Answer

program pr1;
var a,b,c: integer;

s,p: real;

label vvod;

begin vvod: writeln('Введите длины сторон');

readln(a,b,c);

if (a+b)<c then begin writeln('Ошибка'); goto vvod; end;

p:= (a+b+c)/2;

s:= sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Площадь равна ',s);

end.