Сформировать квадратную матрицу порядка n по заданному образцу 1 1 1...1 1 1 222...220...

Question

Сформировать квадратную матрицу порядка n по заданному образцу

1 1 1...1 1 1
222...220
333...000
..................
..................
n-1 n-1 0...0 0 0
n 0 0...0 0 0

Answer 1

Решение ниже в комментарии

Comments

program pasck;

var

i1, i, n, count : integer;

begin

read(n);

case n of
1..9: count:=2;
10..99: count:=3;
100..999: count:=4;
else count:=5;
end;

for i:=0 to n-1 do
begin
writeln;
for i1:=0 to n-i-1 do write(i+1:count);
for i1:=n-i+1 to n do write(0:count);
end;

end.