Урок 15 (Решенная задача номер 3)

Урок 15 (Решенная задача номер 3)

3) У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17

ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).

type
  ru36 = array[1..17] of integer;

var a: ru36;
    i, M, c : integer;

begin
  M := 1;
  c := M;
  for i := 1 to 17 do
    begin
      a[i] := a[i-1] + 1;
      write(a[i], ' ');
      c := c - 1;
      if (c = 0) then
        begin
          writeln();
          c := M + 1;
          M := c;
        end;
    end;
end.