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

Naamak
Jul 8, 2019
Var
a,b,c:integer;
p:real;
begin
readln(a,b,c);
p:=a+b+c;
p:=p/2;
if (a+blt;c) or (a+clt;b) or (b+clt;a) then writeln(impossible)
else writeln(sqrt(p*(p-a)*(p-b)*(p-c)):0:0);
end.
a,b,c:integer;
p:real;
begin
readln(a,b,c);
p:=a+b+c;
p:=p/2;
if (a+blt;c) or (a+clt;b) or (b+clt;a) then writeln(impossible)
else writeln(sqrt(p*(p-a)*(p-b)*(p-c)):0:0);
end.
200