Дан двумерный массив размера N*N (вводится пользователем). Заполнить матрицу нулями и единицами так, чтобы получилась шахматная доска.
Answers & Comments
karicha2000
Const nn=50; var i,j,n:integer; a:array[1..nn,1..nn] of integer; begin Write('n='); Read(n); for i:=1 to n do begin for j:=1 to n do if (i+j) mod 2 =0 then Write('0') else Write('1'); Writeln end end.
karicha2000
блииин)), просто я только начинаю все это изучать, и это первое, что пришло мне в голову, а когда увидела ваше решение мне аж немножко стыдно стало, что можно было так легко решить :с
Answers & Comments
nn=50;
var
i,j,n:integer;
a:array[1..nn,1..nn] of integer;
begin
Write('n='); Read(n);
for i:=1 to n do begin
for j:=1 to n do
if (i+j) mod 2 =0 then Write('0') else Write('1');
Writeln
end
end.
Тестовое решение
n=8
01010101
10101010
01010101
10101010
01010101
10101010
01010101
10101010