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

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

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

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

Вложенными циклами:

program zadacha18;
var i, j, n, m: integer;
begin
  writeln('Vvedite chislo N:');
  readln(n);
  m:=1;
  i:=1;
  repeat
    j:=1;
    while (j<=m) and (i<=n) do
    begin
      write(i, ' ');
      i:=i+1;
      j:=j+1;
    end;
    writeln();
    m:=m+1;
  until i>=n;
  readln();
end.    

В 1 цикл:

program zadacha18;
var i, j, n, m: integer;
begin
  writeln('Vvedite chislo N:');
  readln(n);
  m:=1;
  i:=1;
  j:=2;
  repeat
    If m = j then
    begin
      writeln();
      j:=j+1;
      m:=1;
    end;
    write(i, ' ');
    i:=i+1;
    m:=m+1;
  until i > = n;
  readln();
end.