Сформировать квадратную матрицу порядка n по заданному образцу 1 2 3 4 5 6 7 8 9 10 0 1 2...

Question

Сформировать квадратную матрицу порядка n по заданному образцу
1 2 3 4 5 6 7 8 9 10
0 1 2 3 4 5 6 7 8 9
0 0 1 2 3 4 5 6 7 8
0 0 0 1 2 3 4 5 6 7
0 0 0 0 1 2 3 4 5 6
0 0 0 0 0 1 2 3 4 5
0 0 0 0 0 0 1 2 3 4
0 0 0 0 0 0 0 1 2 3
0 0 0 0 0 0 0 0 1 2
0 0 0 0 0 0 0 0 0 1

Comments

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016// Также проверено в WDE: http://pascalabc.net/WDEbegin var a:array[,] of integer; SetLength(a,10,10); for var i:=0 to 9 do for var j:=i to 9 do a[i,j]:=j+1-i; for var i:=0 to 9 do begin for var j:=0 to 9 do Write(a[i,j],' '); Writeln endend.

Answer 1

Var  i: integer;  begin
for i:=1 to 9 do  write(i);  writeln(10);
for i:=0 to 8 do  write(i);  writeln(9);
for i:=1 to 2 do  write('0');  for i:=1 to 7 do  write(i);  writeln('8');
for i:=1 to 3 do  write('0');  for i:=1 to 6 do  write(i);  writeln('7');
for i:=1 to 4 do  write('0');  for i:=1 to 5 do  write(i);  writeln('6');
for i:=1 to 5 do  write('0');  for i:=1 to 4 do  write(i);  writeln(5);
for i:=1 to 6 do  write('0');  for i:=1 to 3 do   write(i);  writeln('4');
for i:=1 to 7 do  write('0');  for i:=1 to 2 do  write(i);  writeln(3);
for i:=1 to 8 do  write('0');  write('1');writeln('2');
for i:=1 to 9 do  write('0');  writeln(1);  
end.

Как сделать более кратко не знаю. Но эта программа работает.

Comments

Да. Шедевр))))

---

Спасибо :D

---

Это для паскаля

---

http://pascalabc.net/WDE/ можешь ввести сюда

---

нет, прямо так открываешь новую страницу (белый прямоугольник слева вверху) и вставить туда