[vers0]

Сообщение от lmikle

2. Через деление

Код:

var
  A : Array Of Integer;
  InNmb : Integer;
begin
  InNmb := 63;
  SetLength(A,0);
  While InNmb > 0 Do
   Begin
     SetLength(A,Length(A)+1);
     A[High(A)] := InNmb mod 10;
     InNmb := InNmb div 10;
   End;

Извините, может, будет глупый вопрос, но все же (мало знаком с данной темой):
После While InNmb > 0 Do идет деление и соответственно "выяснение" из каких цифр состоит InNmb, а вот как потом разнести эти цифры по переменным A1 и A2?
Или строка SetLength(A,Length(A)+1); как раз и заполняет A+1 и т.д.? но тогда в var почему они не обозначены?