Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin var (n,m): =readinteger2('количество строк и столбцов в матрице: '); var a: =new integer[n,m]; for var j: =0 to m-1 do if j.iseven then a.setcol(j,range(n*j+1,n*(j+) else a.setcol(j,range(n*(j+1),n*j+1,-1).toarray); a.println(4) end. пример количество строк и столбцов в матрице: 3 4 1 6 7 12 2 5 8 11 3 4 9 10
zubov-073620
30.07.2022
Использовать чертежник алг нач опустить перо сместиться на вектор (0,7) сместиться на вектор (3,-3) сместиться на вектор (3,3) сместиться на вектор (0,-7) поднять перо сместиться на вектор (3,0) опустить перо сместиться на вектор (0,7) сместиться на вектор (4,0) сместиться на вектор (1,-1) сместиться на вектор (0,-1) сместиться на вектор (-1,-1) сместиться на вектор (-4,0) поднять перо сместиться на вектор (4,0) опустить перо сместиться на вектор (1,0) сместиться на вектор (1,-1) сместиться на вектор (0,-2) сместиться на вектор (-1,-1) сместиться на вектор (-5,0) поднять перо сместиться в точку (0,0) кон