Задача 22 Урок 13.1

Задача 22 урок 13.1

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами. Например, для N=49 получим:
123--сначала до двух456789--потом до трёх101112--возвращаемся к одному131415161718192021--тут уже четыре2223242526--снова убывает 2728293031323334353637383940414243444546474849

program U131Z22;
var n,m,l,i,k: integer;
    f:boolean;
begin
  writeln('vvedite polozhitelnoe chislo');
  readln(n);
  writeln('vvedite m');
  m:=2;
  l:=0;
  k:=1;
  f:=true;
  for i:=1 to n do
  begin
    write(i,' ');
    l:=l+1;
    if (l=k) then
    begin
      writeln();
      l:=0;
    if (f) then
      k:=k+1
    else
      k:=k-1;
    end;
    if (k=m) then
    begin
      m:=m+1;
      f:=false;
    end;
    if (k=1) then
      f:=true;
  end;
  readln();
end.  
vedro-compota's picture

перепроверить

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

program U131Z22;
var n,m,l,i,k: integer;
    f:boolean;
begin
  writeln('vvedite polozhitelnoe chislo');
  readln(n);
  m:=2;
  l:=0;
  k:=1;
  f:=true;
  for i:=1 to n do
  begin
    write(i,' ');
    l:=l+1;
    if (l=k) then
    begin
      writeln();
      l:=0;
    if (f) then
      k:=k+1
    else
      k:=k-1;
    if (k=m) then
    begin
      m:=m+1;
      f:=false;
    end;
    if (k=1) then
      f:=true;
    end;
  end;
  readln();
end. 
vedro-compota's picture

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

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