1. Выполните операции с двоичными числами: е) 10000—100, 11и) 100101 . 101, 011в) 111, 10+111а) 10, 101+1, 111 б) 110, 01+11, 0101г) 10010, 01-111, 1 д) 110001 - 11, 01ж) 1010, 11 . 10, 01 з) 111. 1, 101​

var a, b, c: integer;  //инициализация переменных (длин отрезков)

begin  //Начало программы (тело программы)

   write (' Длины сторон: ');  //Вывод сообщения в консоль

   readln (a,b,c);  //Организация ввода (длин отрезков)

   if (a <= b+c) and (b <= a+c) and (c <= a+b) then  //В условии if проверяется, что каждая из сторон меньше либо равна сумме других. Если хотя бы одна будет больше, то все логическое выражение вернет ложь (false). В таком случае сработает ветка else.

       writeln ('Треугольник существует.')

   else

       writeln ('Треугольник не существует.');

readln(); //Инициализация закрытия по нажатию на кнопку

end. //Конец программы

Объяснение: