Программирование язык паскаль

Вывести квадрат, состоящий из NxN ячеек, заполненный числами от 1 до N "дорожками"

С клавиатуры задается число N не превышающее 20.

пример:

123

231

312

Question

Информатика

Гермоген

31 мая, 15:38

Программирование язык паскаль

Вывести квадрат, состоящий из NxN ячеек, заполненный числами от 1 до N "дорожками"

С клавиатуры задается число N не превышающее 20.

пример:

123

231

312

+2

Ответы (1)

Знаете ответ на вопрос?

Кеша · Answer 1

var n, i, j:integer;

begin

readln (n) ;

for i:=1 to n do

begin

for j:=i to n do write (j) ;

for j:=1 to i-1 do write (j) ;

writeln;

end;

end.

Пример:

5

12345

23451

34512

45123

51234