Задание 19 Урок 13.1

Задание 19 Урок 13.1

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

Решение вложенным циклом

var counter_i,counter_z,line_break,n : integer;
begin
  line_break := 0;
  counter_i := 1;
  counter_z := 0;
  write('Введите N и нажмите ENTER: ');
  readln(n);
   while (counter_i <= n) do
   begin
     repeat
       write(counter_i, ' ');
       counter_i += 1;
       counter_z += 1;
     until ((counter_z > line_break) or (counter_i > n));
     writeln();
     line_break += 1;
     counter_z := 0;
   end;
  readln();
end.

Решение одним циклом

var counter_i,counter_z,line_break,n : integer;
begin
  line_break := 1;
  counter_i := 1;
  counter_z := 0;
  write('Введите N и нажмите ENTER: ');
  readln(n);
  repeat
    write(counter_i, ' ');
    counter_i += 1;
    counter_z += 1;
    if (counter_z = line_break) then
    begin
      writeln();
      line_break += 1;
      counter_z := 0;
    end;
  until (counter_i > n);
  readln();
end.