Урок 13.1. Задача 18.

Урок 13.1. Задача 18.

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=18:

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

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

# 1
var N, a, b, i : integer;

begin
  b := 1;
  write('Enter an integer : ');
  readln(N);
  for i := 1 to N do
  begin
    a := a + 1;
    if a < b then
      write(i, ' ')
    else
    begin
      a := 0;
      b := b + 1;
      writeln(i);
    end;
  end;
  readln();
end. 

# 2
var N, a, b, c : integer;

begin
  a := 1;
  b := 2;
  c := 1;
  write('Enter an integer : ');
  readln(N);
  for a := a to N do
  begin
    c := c + 1;
    write(a, ' ');
    if (c = b) then
    begin
      writeln();
      b := b + 1;
      c := 1;
    end;
  end;
  readln();
end.