
Елеазар
7 год назад
Помогите, пожалуйста, написать программу для ABC паскаль.
Нужно сделать так, чтобы программа в ответе выдала xoxoxoxoxo, но при этом мы указываем сколько должно быть столбцов, сколько рядов. Должна получиться шахматная доска. 10 класс
Program Ksenia
Var..... и т.д. Пожалуйста!!!! 39 баллов! Больше нет(
ОТВЕТЫ

Глеб
Jul 19, 2019
Var n,m,i,j:integer;
begin
write(n = );
readln(n);
write(m = );
readln(m);
for i:=1 to n div 2 do
begin
for j:=1 to m div 2 do write(xo);
if m mod 2 = 1 then write(x);
writeln;
for j:=1 to m div 2 do write(ox);
if m mod 2 = 1 then write(o);
writeln;
end;
if n mod 2 = 1 then
begin
for j:=1 to m div 2 do write(xo);
if m mod 2 = 1 then write(x);
writeln;
end;
end.
Пример:
n = 3
m = 5
xoxox
oxoxo
xoxox
begin
write(n = );
readln(n);
write(m = );
readln(m);
for i:=1 to n div 2 do
begin
for j:=1 to m div 2 do write(xo);
if m mod 2 = 1 then write(x);
writeln;
for j:=1 to m div 2 do write(ox);
if m mod 2 = 1 then write(o);
writeln;
end;
if n mod 2 = 1 then
begin
for j:=1 to m div 2 do write(xo);
if m mod 2 = 1 then write(x);
writeln;
end;
end.
Пример:
n = 3
m = 5
xoxox
oxoxo
xoxox
292