Поле шахматной доски определяется парой чисел (a,b), каждое от 1 до 8, первое число задает номер столбца, второе — номер строки. заданы две клетки. определите, может ли шахматный король попасть с первой клетки на вторую за один ход. входные данные даны 4 целых числа от 1 до 8 каждое, первые два начальную клетку, вторые два конечную клетку. начальная и конечная клетки не . числа записаны в отдельных строках. выходные данные программа должна вывести yes, если из первой клетки ходом короля можно попасть во вторую, или no в противном случае.

Var   x1,y1,x2,y2: byte; begin   readln(x1,y1,x2,y2);   if ((abs(x1-x2)< =1) and (abs(y1-y2)< =1)) then writeln('yes')   else writeln('no') end.

Var  x1, y1, x2, y2: longint;   begin  readln(x1, y1, x2, y2);   if ((y1 = y2) and (abs(x2 - x1) = 1)) or ((x1 = x2) and (abs(y2 - y1) = 1)) or ((abs(y1 - y2) = 1) and (abs(x2 - x1) = 1)) then    write('yes')  else    write('no');   end.

Определяющими  характеристиками индустриального общества  являются:   1. возникновение целостной нации-государства, организованной на основе общего языка и культуры, рост индивидуализма и свободы граждан;   2. коммерциализация производства, замена феодализма капитализмом индустриальным обществом) и уход в прошлое существования натурального хозяйства;   3. преобладание машинного производства и организация производства фабричного;   4. сокращение доли населения, занятого в сельском хозяйства;   5. урбанизация населения;   6. развитие образования, науки, рост грамотности, сциентистских предпочтений,  7. бурный рост применения достижений науки во всех сферах жизни, особенно в индустриальном производстве;   8. возникновение технократического мышления, отождествление мудрости со знаниями, укоренение парадигмы «знание – сила».