Ana
6 год назад
Программирование язык паскальВывести квадрат, состоящий из NxN ячеек, заполненный числами от 1 до N "дорожками" С клавиатуры задается число N не превышающее 20.пример:123231312
ОТВЕТЫ
Karp
Oct 24, 2020
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
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
952
Смежные вопросы:
