С клавиатуры вводят 3 числа. Определить существует ли треугольник с такими сторонами. Если да-найти его площадь. Если нет-вывести сообщение об этом на экран.

Question

Анфима

22 августа, 17:41

+4

Ответы (1)

Знаете ответ на вопрос?

Альберта · Answer 1

Var

a, b, c:integer;

p:real;

begin

readln (a, b, c) ;

p:=a+b+c;

p:=p/2;

if (a+b
else writeln (sqrt (p * (p-a) * (p-b) * (p-c)) : 0:0) ;

end.