получить квадратную матрицу порядка n:
1 2 ... n-1 n
n+1 n+2 ... 2n-1 2n
2n+1 2n+2 ... 3n-1 3n
. . . . .
. . . . .
. . . . .
(n-1)n+1 (n-1)n+2 ... n^2-1 n^2
1 2 ... n-1 n
n+1 n+2 ... 2n-1 2n
2n+1 2n+2 ... 3n-1 3n
. . . . .
. . . . .
. . . . .
(n-1)n+1 (n-1)n+2 ... n^2-1 n^2
More Questions From This User See All
Answers & Comments
uses crt;
Var i,j,n,rezult:integer;
Begin
Writeln('Введите n');
readln(n);
for i:=0 to n-1 do
Begin
for j:=1 to n do
Begin
rezult:=i*n+j;
Write(rezult:3,' ');
end;
Writeln;
end;
end.