Вернуться Тема: помогите написать программу на PASCAL , рисующую закрашенную шахматную доску. заранее спасибо, а то уже все попробовала, не получается.
var i, j : integer; begin write(' '); for i := 0 to 7 do write(chr(ord('A') + i)); for i := 1 to 8 do begin writeln; write(i); for j := 1 to 8 do if (i + j) mod 2 = 0 then write('.') else write('#'); end; end.
