{* Задача57 *}

REM basic

' Сформировать матрицы M1(N, N) и М2(N, N). Объединить их в общие матрицы
' M11(N, 2N) и M22(2N, N). Формирование и объединение провести в одной паре
' вложенных циклов.


CLS
INPUT "Введите N ", N

Dim M1(N, N), M2(N, N)

For i = 1 To N
        For j = 1 To N
           
                M1(i, j) = 1
                M2(i, j) = 2
          
                M11(i, j) = M1(i, j)
                M11(i, j + N) = M2(i, j)
         
                M22(i, j) = M1(i, j)
                M22(i + N, j) = M2(i, j)
        Next j
Next i
    
        PRINT "M11"
For i = 1 To N
        For j = 1 To 2 * N
                PRINT M11(i, j);
        Next j
     PRINT
Next i
       
    PRINT "M22"
For i = 1 To 2 * N
        For j = 1 To N
                PRINT M22(i, j);
        Next j
     PRINT
Next i
End