tshelokova
?>

На шахматной доске стоят несколько ладей. Докажите, что их можно раскрасить тремя цветами, чтобы одноцветные ладьи не стояли под боем друг друга. Хватит ли для этого двух цветов? скажите

Информатика

Ответы

yanva
'VBScript

Sub Zadanie()
    ReDim C(5, 6)

    k_pos = 0
    mini = LBound(C, 1)
    minj = LBound(C, 2)
    For i = LBound(C, 1) To UBound(C, 1)
        For j = LBound(C, 2) To UBound(C, 2)
            C(i, j) = Round(Rnd * 10)

            if C(i, j) > 0 then k_pos = k_pos + 1

            if C(i, j) < C(mini, minj) then
                mini = i
                minj = j
            end if
        Next
    Next

    MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub

Call Zadanie()

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

На шахматной доске стоят несколько ладей. Докажите, что их можно раскрасить тремя цветами, чтобы одноцветные ладьи не стояли под боем друг друга. Хватит ли для этого двух цветов? скажите
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

timsch12
Сергеевич1386
rykovatv6
Владимирович
Кулагина_Владимир1179
bulin2001
Владимир-Денисович1080
printdecor
dannytr
serge-lysoff
Лилия-Карпухина337
Mariya694
ValerevnaRustam1072
Veronika1270
irnik65