Решение задачи №19 из главы 13.1

Решение задачи №19 из главы 13.1

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

1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17
Вывод консоли
Vvedite chislo
17

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17
Вывод консоли
Vvedite chislo
50

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 32 33 34 35 36
37 38 39 40 41 42 43 44 45
46 47 48 49 50
var
i,n,j,k:integer;
begin
k:=1; // счетчик для переноса строк
i:=1; // начальное значение счетчика
j:=0;// начальное значение для внутреннего счетчика
writeln('Vvedite chislo');
readln(n);

    while i<=n do
       begin
       j:=j+1; // запускаем внутренний счетчик
       if(j>=k) then
         begin
           writeln();
           j:=0; //обнуляем внутренний счетчик
           k:=k+1;
         end
       else
          begin
             write(i, ' ');
             i:=i+1; // изменяем значение счетчика
          end
        end;

readln();
end.
     
vedro-compota's picture

  • выводим число каждый раз в витке (не в if)
  • использовать for

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

gani84's picture

var n, i, j, k:integer;
begin
  writeln('vvedite chislo N:');
  readln(n);

  k:=1;
  j:=0;

  for i:=1 to N do
    begin
      write(i, ' ');
      j := j + 1;


     if (j>=k) then
      begin
        writeln();
        j:=0;
        k:=k+1;
      end;
     end;
  readln();
end
vedro-compota's picture

решение засчитано

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