Задание 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
ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.

var counter_i,counter_z,line_break,n : integer;

procedure string_x(var i,z: integer);
begin
  write(i, ' ');
  i += 1;
  z += 1;
end;

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

решение засчитано. Но лучше использовать for

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