Задача 20 урок 13.1

Задача 20 урок 13.1

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:

3
4 6
7 9 
12 14
15 17

Способ №1 (1 цикл)

program task_20_lesson_13_1;
var i, n, l, c, str : integer;
begin
     readln(n);
     c := 0;   // счетчик к-ва чисел в строке
     l := 1;   // максимальное кол-во чисел в строке
     i := 1;   // число из последовательности ограниченное N
     str := 1; // первая строка
     while i <= n do
           begin
             if ((str mod 2) = 1)and((i mod 2) = 0) then
                write(i,' ');
             if ((str mod 2) = 0)and((i mod 2) = 1) then
                write(i,' ');
             i += 1;          // увеличиваем следующее число
             c += 1;

             if (c = l) then    // проверка на кол-во чисел в строке
                begin
                  writeln();
                  str := str + 1;  //считаю строки (начал с 1, когда объявил переменную)
                  l += 1;
                  c := 0;
                end;
           end;
     readln();
end.  

Способ №2 (Вложенный цикл)

program task_19_lesson_13_1;
var i, j, n, c, str : integer;
begin
     readln(n);
     c := 0;                     // кол-во элементов в строке
     i := 1;
     j := 1;                     // максимальное кол-во элементов в строке
     str := 1;
     while (i <= n) do
           begin
           repeat
                 if ((str mod 2) = 1)and((i mod 2) = 0) then
                    write(i,' ');
                 if ((str mod 2) = 0)and((i mod 2) = 1) then
                    write(i,' ');
                 i := i + 1;
                 c := c + 1;         // кол-во элементов в строке растет
           until (c >= j) or (i > n);  // проверка перехода на след строку
           writeln();
           str += 1;
           j := j + 1;               // прирост в следующей строке
           c := 0;                   // обнуляем счетчик чисел в строке
           end;
     readln();
end.