организуйте вывод данных в прямоугольном виде для n 5 используя встроенные циклы. Рекомендации для выполнения задания : лучше использовать циклы с оператором проверки условия
Ответы
Ответ:
1)
program z1;
var i,j,n:integer;
begin
n:=5;
for i:=1 to n do
begin
for j:=1 to n do
if (i=3) and (j=3) then write('0':2) else write('1':2);
writeln
end
end.
2)
program z2;
var i,j,n:integer;
begin
n:=5;
for i:=1 to n do
begin
for j:=1 to n do
if i mod 2 = 0 then write('0':2) else write('1':2);
writeln
end
end.
3)
program z3;
var i,j,n:integer;
begin
n:=5;
for i:=1 to n do
begin
for j:=1 to n do
write(i:2);
writeln
end
end.
4)
program z4;
var i,j,n:integer;
begin
n:=5;
for i:=1 to n do
begin
for j:=1 to n do
if i = j then write('1':2) else write('0':2);
writeln
end
end.
5)
program z5;
var i,j,n:integer;
begin
n:=5;
for i:=1 to n do
begin
for j:=1 to n do
if i + j = n + 1 then write('1':2) else write('0':2);
writeln
end
end.
Объяснение:
1) Выводим на экран 0, если i = 3 и j = 3, иначе выводим 1
2) Выводим на экран 0, если строка чётная, иначе выводим 1
3) Выводим на экран номер строки
4) Выводим на экран 1, если i = j (номер строки равен номеру столбца), иначе выводим 0
5) Выводим на экран 1, если i + j = n + 1 (номер строки плюс номер столбца на 1 больше максимального значения), иначе выводим 0