Есть ответ 👍

Ограничение времени: 1 с Оставшиеся посылки: 100
Паутина
Паучок находится в левом нижнем углу клетчатой доски размерами Nх N, где каждая кле
как во время движения паучок плетет паутину, он не может проходить по одной клетке
двигается по следующим правилам:
1. При движении по часовой стрелке паучок двигается сначала вверх. Если он не может пог
существует, или в ней есть паутинка), он начинает двигаться вправо. Если паучок не может
и в клетку справа, то он начинает двигаться вниз. При невозможности продолжения движен
он перемещается на 1 клетку левее и начинает двигаться против часовой стрелки.
2. При движении против часовой стрелки паучок двигается сначала вверх. Если он не може
(ее не существует, или в ней есть паутинка), он начинает двигаться влево. Если паучок не
сверху, и в клетку слева, то он начинает двигаться вниз. При невозможности продолжения с
вниз, он перемещается 1 клетку правее и начинает двигаться по часовой стрелке.
3. Если паучок не может больше двигаться по часовой или против часовой стрелки, то он оста
Д

137
486
Посмотреть ответы 1

Ответы на вопрос:


Var a,b: integer; c,h: char; begin for b: = 1 to 15 do   begin   for a: = 1 to 15 do   begin     case (a*b) mod 16 of     0: h: ='0';     1..9: h: =*b)mod 16)+48);     10: h: ='a';     11: h: ='b';     12: h: ='c';     13: h: ='d';     14: h: ='e';     15: h: ='f';     end;     case (a*b)div 16 of     0: c: ='0';     1..9: c: =*b)div 16)+48);     10: c: ='a';     11: c: ='b';     12: c: ='c';     13: c: ='d';     14: c: ='e';     15: c: ='f';     end;     write(c+h,' ')   end;   writeln   end end.

Популярно: Информатика