Даны действительныечисла а, b, с. Определить, можно ли построить треугольник со сторонами а, b, с или нет?..
Answers & Comments
vasyamoscowpupkin
Var a,b,c,q:integer; begin read (a,b,c); q:=1;if (a>b+c) or (b>a+c) or (c>a+b) or (a<b-c) or (a<c-b) or (b<a-c) or (b<c-a) or (c<a-b) or (c<b-a) then q:=0; if q=1 then write ('МОЖНО') else write ('НЕЛЬЗЯ'); end.
Answers & Comments
begin
read (a,b,c);
q:=1;if (a>b+c) or (b>a+c) or (c>a+b) or (a<b-c) or (a<c-b) or (b<a-c) or (b<c-a) or (c<a-b) or (c<b-a) then q:=0;
if q=1 then write ('МОЖНО') else write ('НЕЛЬЗЯ');
end.