Паскаль
var a,b,c,p:real;
begin
readln(a,b,c);
If (a begin
writeln(Да);
p:=(a+b+c)/2;
writeln(Площадь: ,sqrt(p*(p-a)*(p-b)*(p-c));
end
else
writeln(Нет);
end.
Можно и на другом языке
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.