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

даны три вещественных числа. можно ли составить из них треугольник. паскаль.

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

program z3;
uses crt;
var a,b,c,p:integer;
s:real;
begin
read(a,b,c);
if (a begin
p:=a+b+c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(площадь=,s:5:2);
writeln(периметр=,p);
end
else
writeln(треугольник не возможен);
end.