Small Basic НУжно чтобы при изменении n=9 на n=10 (с нечётного на чётное) осталось шахматное поле а - id1453221520211209 от karo35 09.12.2021 14:08

Question

Информатика: 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)

karo35 · Accepted Answer

var
i,z,y,x: integer; // объявление переменных
begin // начало программы
writeln('Введите числа: '); // Вывод сообщения
readln(x,y); // Ввод чисел х и у с клавиатуры
while i <> y do     // Повторять цикл пока i не будет равно y
begin   // Вход в цикл
z:=z+x;   // z = z + x (при первом шаге получается 0 = 0 + х)
i:=i+1; // Увеличиваем счетчик цикла на 1
end;     // Выход из цикла
write(z);   // Вывод z (произведение х и у)
end.     // Конец программы

MOGZ ответил