РЕШИТЕ НА ЯЗЫКЕ ПАСКАЛЬ, ПОЖАЛУЙСТА!***

Даны действительныечисла а, b, с. Определить, можно ли построить треугольник со сторонами а, b, с или нет?..

1

Ответы и объяснения

2013-10-20T15:22:43+04:00
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.
решение долгое, но правильное
Спасибо бро!)