Small Basic НУжно чтобы при изменении n=9 на n=10 (с нечётного на чётное) осталось шахматное поле а не становились одни полосы

GraphicsWindow.Width=800

GraphicsWindow.Height=800

n=9

raz= math.Floor(GraphicsWindow.Width /n )

GraphicsWindow.Show()

GraphicsWindow.BrushColor="#000000"

For x=0 To n-1 step 1

For y=0 to n-1 Step 1

if GraphicsWindow.BrushColor="#FF0000" Then

GraphicsWindow.BrushColor="#000000"

Else

GraphicsWindow.Brushcolor="#FF0000"

EndIf

GraphicsWindow.FillRectangle(x*raz,y*raz,raz-2,raz-2)

endfor

EndFor

НикаНетУбежал    2   01.11.2020 19:36    0