Урок 14 Задача 5

Урок 14 Задача 5

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

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

ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму, т.е. для каждой строки вы должны каждый раз (причем один раз для одной строки) вызывать эту подпрограмму.

Решение:

program u14z05;
var a, //количество чисел в строке
  n, //число
  c: integer; //последнее число в строке
procedure stroka(a1,n1:integer; var c1:integer);
var i1:integer;
begin
  for i1:=1 to a1 do
  begin
    if c1 <= n1 then
      write(c1,' ');
    c1:=c1+1;
  end;
  writeln();
end;
begin
  a:=0;
  c:=1;
  writeln('vvedite chislo');
  readln(n);
  while c<=n do
  begin
    a:=a+1;
    stroka(a,n,c);
  end;
  readln();
end.

Консоль:

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