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

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

Ну и пусть будет эквивалент:

var
  a, b, t: LongWord;
  d: Integer;
begin
  if ParamCount<2 then Halt(1);
  Val(ParamStr(1),a,d);
  Val(ParamStr(2),b,d);
  t:=a; d:=2*Ord(a<b)-1;
  Dec(t,d); repeat Inc(t,d); Write(' ',t); until t=b;
  Inc(t,d); repeat Dec(t,d); Write(' ',t); until t=a;
  WriteLn;
end.

или, если так привычнее

var
  a, b, t: LongWord;
  d: Integer;
begin
  if ParamCount<2 then Halt(1);
  Val(ParamStr(1),a,d);
  Val(ParamStr(2),b,d);
  t:=a; d:=2*Ord(a<b)-1;
  t-=d; repeat t+=d; Write(' ',t); until t=b;
  t+=d; repeat t-=d; Write(' ',t); until t=a;
  WriteLn;
end.

Исправление bormant, 27.10.18 21:32:

Ну и пусть будет эквивалент:

var
  a, b, t: LongWord;
  d: Integer;
begin
  if ParamCount<2 then Halt(1);
  Val(ParamStr(1),a,d);
  Val(ParamStr(2),b,d);
  t:=a; d:=2*Ord(a<b)-1;
  Dec(t,d); repeat Inc(t,d); Write(' ',t); until t=b;
  Inc(t,d); repeat Dec(t,d); Write(' ',t); until t=a;
  WriteLn;
end.

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

Ну и пусть будет эквивалент:

var
  a, b, t: LongWord;
  d: Integer;
begin
  if ParamCount<2 then Halt(1);
  Val(ParamStr(1),a,d);
  Val(ParamStr(2),b,d);
  t:=a; d:=Ord(2*Ord(a<b)-1);
  Dec(t,d); repeat Inc(t,d); Write(' ',t); until t=b;
  Inc(t,d); repeat Dec(t,d); Write(' ',t); until t=a;
  WriteLn;
end.