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 . . . ....

Question

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 0 0 0 0 0 1

Нужно получить такую матрицу (язык Pascal).

Answer 1

Begin
     writeln('1  2  3  4  5  6  7  8  9 10', #13, '0  1  2  3  4  5  6  7  8  9', #13, '0  0  1  2  3  4  5  6  7  8', #13,
                 '0  0  0  1  2  3  4  5  6  7', #13, '0  0  0  0  1  2  3  4  5  6', #13, '0  0  0  0  0  1  2  3  4  5', #13,
                 '0  0  0  0  0  0  1  2  3  4', #13, '0  0  0  0  0  0  0  1  2  3', #13, '0  0  0  0  0  0  0  0  1  2', #13,
                  '0  0  0  0  0  0  0  0  0  1');
end.

:)

Comments

Самый легкий способ) но таким способом от учителя не отделаешься)

---

var i, j: integer;
begin
for j := 1 to 10 do
begin
for i := 1 to 10 do
if (i < j) then write(0:3) else write(i + 1 - j:3);
writeln();
end;
end.

Тогда так =)