GAECHKA
Твоя помощница в решении задач

Шахматное поле. Разделите экран монитора на 40 клеток (5x8) окрашенных в чёрный и серый цвет

Шахматное поле. Разделите экран монитора на 40 клеток (5x8) окра-
шенных в чёрный и серый цвет.
0
вопрос задан

Источник


1 ответ
Решение
Клетки будут не квадратные 60х95

Добавлено через 15 минут
uses graph;
var w,h,i,j:integer;
begin
w:=0;
initgraph(w,h,'');
w:=getmaxX div 8;
h:=getmaxY div 5;
for i:=1 to 5 do
for j:=1 to 8 do
if odd(i+j) then
 begin
  setfillstyle(1,7);
  bar((j-1)*w,(i-1)*h,j*w,i*h);
 end;
readln
end.