Дан двумерный массив размера N*N (вводится пользователем). Заполнить матрицу нулями и единицами так, чтобы получилась шахматная доска.
Ответы
Ответ дал:
0
const n=5;
var A:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
if (odd(i) and odd(j)) or (not odd(i) and not odd(j)) then a[i,j]:=0
else a[i,j]:=1;
write(a[i,j]:3);
end;
end;
end.
var A:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
if (odd(i) and odd(j)) or (not odd(i) and not odd(j)) then a[i,j]:=0
else a[i,j]:=1;
write(a[i,j]:3);
end;
end;
end.
Ответ дал:
0
Как все у Вас непросто)))
Ответ дал:
0
Просто всегда помните, что "красота - в простом!". Если Вы что-то решили, неважно в какой области и оно некрасиво - оно или неверно, или неоптимально.
Ответ дал:
0
Теория относительности непроста, но её результат, бесспорно, гениально прост: E=mc^2
Ответ дал:
0
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.
Тестовое решение
n=8
01010101
10101010
01010101
10101010
01010101
10101010
01010101
10101010
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
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад