Предмет: Информатика,
автор: spiridonovnout
получить квадратную матрицу порядка 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
Ответы
Автор ответа:
0
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.
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.
Приложения:
![](https://files.topotvet.com/i/c51/c5170be23fb32ec4d5de67fe2cda06fe.jpg)
Похожие вопросы
Предмет: Русский язык,
автор: bekajumabay
Предмет: Окружающий мир,
автор: egorkocubenko
Предмет: Немецкий язык,
автор: IROCHKAPIPILOCKA
Предмет: Математика,
автор: zelja
Предмет: Биология,
автор: натали020780