История изменений

Исправление bormant, 27.10.18 22:13 (текущая версия) :

Читабельность куда-то делась.

Чем так, уж лучше «монстра»:

procedure CountUp(a, b: LongWord);
begin
  for a:=a     to b do Write(' ',a);
end;

procedure CountDn(a, b: LongWord);
begin
  for a:=a downto b do Write(' ',a);
end;

var
  a, b: LongWord; d: Integer;
begin
  if ParamCount<2 then Halt(1);
  Val(ParamStr(1),a,d);
  Val(ParamStr(2),b,d);
  if a<b then begin
    CountUp(a,b); CountDn(b,a);
  end else begin
    CountDn(a,b); CountUp(b,a);
  end; WriteLn;
end.

Исходная версия bormant, 27.10.18 22:12:

Читабельность куда-то делась.

Чем так, уж лучше «монстра»:

procedure CountUp(a, b: LongWord); Inline;
begin
  for a:=a     to b do Write(' ',a);
end;

procedure CountDn(a, b: LongWord); Inline;
begin
  for a:=a downto b do Write(' ',a);
end;

var
  a, b: LongWord; d: Integer;
begin
  if ParamCount<2 then Halt(1);
  Val(ParamStr(1),a,d);
  Val(ParamStr(2),b,d);
  if a<b then begin
    CountUp(a,b); CountDn(b,a);
  end else begin
    CountDn(a,b); CountUp(b,a);
  end; WriteLn;
end.