Решение задачи №5 из главы 14

Задача №5 из главы 14

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

1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17
Вывод консоли немного не то
vvedite chislo N:
17
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
var a, i, j, k:integer;
  function cikl(var n:integer):integer;
  begin
  for i:=1 to N do
    begin
      write(i, ' ');
      j:=0;
      j := j + 1;
  end;
end;
begin
  writeln('vvedite chislo N:');
  readln(a);

  k:=1;
  cikl(a);
   if (j>=k) then
      begin
        writeln();
        j:=0;
        k:=k+1;
      end;
     readln();
end.

Key Words for FKN + antitotal forum (CS VSU):

vedro-compota's picture

не по условию

_____________
матфак вгу и остальная классика =)

vedro-compota's picture

это решение основывается на идее решения вложенными циклами.

_____________
матфак вгу и остальная классика =)