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*
Комментарий*

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

Yurevich1344
борисовна Елена78
bolosolo77
amaraks67
rykovatv6
Sergeevich-irina
cometa94558
sidorov9
Shumnova42
dpolkovnikov
delo1005
Nonstop788848
ii090758
ValerevnaRustam1072
kriapex