1. Составьте программу вывода матрицы: 1 1 1 1 2 2 2 2 3 3 3 3 2. Составьте программу вывода матрицы: 1 2 3 4 1 2 3 4 1 2 3 4

{задача 1}

Var

i, k:integer;

begin

for i:=1 to 3 do {начало цикла вывода строк в количестве 3 штук}

begin {начало цикла вывода числа в каждой строке}

for k:=1 to 4 do {начало цикла вывода 4 чисел в каждой строке}

Write (i:2); {вывод на экран числа с отступом на 2 символа}

Writeln; {переход на следующую строку}

end; {окончание цикла вывода числа в каждой строке}

end.

{задача 2}

var

i, k:integer;

begin

for i:=1 to 3 do {начало цикла вывода строк в количестве 3 штук}

begin {начало цикла вывода числа в каждой строке}

for k:=1 to 4 do {начало цикла вывода 4 чисел в каждой строке}

Write (k:2); {вывод на экран числа с отступом на 2 символа}

Writeln; {переход на следующую строку}

end; {окончание цикла вывода числа в каждой строке}

end.