Получить квадратную матрицу порядка n: 1 2 ... n-1 n n+1 n+2 ... 2n-1 2n 2n+1 2n+2 ......

Question

Получить квадратную матрицу порядка 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

Answer 1

Program pr;
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.

---

Comments

http://znanija.com/task/15269416