Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Задача о восьми ферзях


Задача о восьми ферзях
2009-12-13 07:39 Александр
Задача о восьми ферзях Private field(7, 7) As Integer Private Function UnderAtack(ByVal x As Integer, ByVal y As Integer) As Boolean For i = 0 To 7 ' горизонталь и вертикаль If field(x, i) = 1 Or field(i, y) = 1 Then UnderAtack = True [...]


В избранное