РЕШИТЕ ** ЯЗЫКЕ ПАСКАЛЬ, ПОЖАЛУЙСТА!*** Даны действительныечисла а, b, с. Определить,...

Question

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

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

Answer 1

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 (aif q=1 then write ('МОЖНО') else write ('НЕЛЬЗЯ');
end.

Comments

решение долгое, но правильное

---

Спасибо бро!)