Даны 3 целых чила a,b,c. Выяснить, существует ли треугольник со сторонами a, b, c. Pascal ABC

2

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

2014-03-09T09:50:30+00:00
K:=0;
if (a>b+c) or (b>a+c) or (c>a+b) then
k:=1;
if k=1 then
writeln('не существует') else
writeln('существует');
2014-03-09T10:18:25+00:00
Var
a,b,c,d:integer;
begin
readln(a,b,c);
if (a+b>c)and(a+c>b)and(c+b>a)then
 write('существует')
else writeln('не существует');
end.