Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.