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

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

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

Одним циклом:

var i, j, M, N: integer;
  begin
    readln(N);
    i:=1;
    j:=1;
    M:=1;
    for i:=1 to N do
      begin
        write(i,' ');
          if (j=M) then
            begin
              writeln();
                j:=0;
                M:=M+1;
              end;
        j:=j+1;
      end;
    readln();
  end.</p

<blockquote>Вложенные циклы:</blockquote>
<pre class="brush: delphi">var i, j, M, N: integer;
  begin
    readln(N);
    i:=1;
    j:=1;
    M:=1;
    repeat
      for j:=1 to M do
        begin
          write(i,' ');
            if (j=M) then
              writeln();
          i:=i+1;
          if (i>N) then
            break;
        end;
      M:=M+1
    until i>N;
    readln();
  end.