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

даны 3 числа , существует ли треугольник с такими длинами сторон (помогите......)

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

10 var a,b,c: integer; 
20 p,s: real; 
30 begin 
40 writeln(Введите длины сторон треугольника (a,b,c)); 
50 readln(a,b,c); 
60 if (a+b>c) then 
70 begin 
80 p:=(a+b+c)/2; 
90 s:=sqrt(p*(p-a)*(p-b)*(p-c)); 
100 writeln(Да, треугольник с такими сторонами существует.); 
110 writeln(S = ,s:0:3); 
120 end 
130 else 
140 writeln(Треугольник с такими сторонами не существует.); 
150 end.