Все лекарства неприятны на вкус. 2.X2=0 3.Многие растения обладают целебными свойствами. 4.Некоторые люди не едят шоколад. 5.Мой кот – серый. 6.Все попугаи – говорящие. 7.Существуют птицы, не умеющие летать.
{Проверка на существование треугольника} if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then Begin if ((a=b)or (b=c) or (a=c)) then Writeln('Треугольник равнобедренный');
if ((a=b) and (b=c)) then Writeln('Треугольник равносторонний') else Writeln('Треугольник разносторонний');
if ((a*a+b*b = c*c) or (a*a+c*c = b*b) or (b*b+c*c = a*a)) then Writeln('Треугольник прямоугольный'); end else Writeln('Треугольник нельзя построить');