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

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

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

Решение одним циклом.

program Project19;
var a, b, c, f, g: integer;
begin
  b:=1;
  c:=0;
  f:=1;
  writeln('Vvedite zeloe polozhitelnoe chislo:');
  readln(a);
  if (a > 0) then
  begin
     while (b <= a) do
     begin
        c:=c+1;
        if (c = (f+1)) then
        begin
           writeln(' ');
           c:=0;
           f:=f+1;
        end
        else
        begin
          write(b, ' ');
          b:=b+1;
        end;
     end;
    end
  else
     writeln('Vy vveli otrizatelnoe chislo!');
  readln();
end. 
vedro-compota's picture

решение похоже на работоспособное, но предлагаю убрать распечатку из ветки условного оператора, сделайте так, чтобы очередное значение выводилось в каждом витке цикла (а вот перенос строки уже по условию)

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

program Project19;
var a, b, c, f, g: integer;
begin
  b:=1;
  c:=0;
  f:=1;
  writeln('Vvedite zeloe polozhitelnoe chislo:');
  readln(a);
  if (a > 0) then
  begin
     while (b <= a) do
     begin
        write(b, ' ');
        b:=b+1;
        c:=c+1;
        if (c = f) then
        begin
           writeln(' ');
           c:=0;
           f:=f+1;
        end;
     end;
    end
  else
     writeln('Vy vveli otrizatelnoe chislo!');
  readln();
end.