[vers0]

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

Э, чувак. Ну вот же в сообщении все понятно. Никаких 27 у тебя на входе в разбиение нет.

Согласен, мой косяк, собственно и выложил потом все входные данные.

Как тогда проверять однозначное или двузначное число в S1 и если двузначное, тогда уже присваивать значение А2? т.к. в большинстве случаев они двузначные (проверял все возможные варианты, оказалось сумма дает не всегда двузначное).

[lmikle]

Ну, например, так:

Код:

procedure SplitNumber(InNmb : Integer; var A1 : Integer; var A2 : Integer);
var
  A : Array Of Integer;
begin
  SetLength(A,0);
  While InNmb > 0 Do
    Begin
      SetLength(A,Length(A)+1);
      A[High(A)] := InNmb mod 10;
      InNmb := InNmb div 10;
    End;
  If Length(A) = 1
    Then
      Begin
        A1 := A[0];
        A2 := 0;
       End
    Else
      Begin
        A1 := A[1];
        A2 := A[0];
      End;
end;

[vers0]

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

Ну, например, так

В принципе, так и думал, проще if then else

Спасибо, что помогаете тупым людям вроде меня