Implementation

{$R *.dfm}

procedure TForm1.SummaClick(Sender: TObject);

var j,i,s1,s2:integer;

Begin

n:=strtoint(Edit1.Text);

s1:=0;

s2:=0;

i:=1;

While n<>0 do

Begin

while i<=2 do; // Это вложенный цикл для

Begin // вычисления суммы двух младших цифр числа

j:=n mod 10;

n:=n div 10;

s1:=s1+j;

i:=i+1;

End

if i<=(k-2) then

n:=n div 10

Else

Begin

j:=n mod 10;

s2:=s2+j; // Это вычисляется сумма двух старших цифр

n:=n div 10;

end;

i:=i+1;

end;

Label5.Caption :=Inttostr(i);

Edit2.Text:=Inttostr(s1);

Edit3.Text :=Inttostr(s2);

Summa.Enabled :=false; //Чтобы не считать уже найденную сумму

end;

procedure TForm1.Button3Click(Sender: TObject);

Begin

close;

end;

procedure TForm1.FormCreate(Sender: TObject);

Begin

Summa.Enabled :=false;

Edit1.clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

end;

procedure TForm1.OrderClick(Sender: TObject);

var m:integer;

Begin //Метод для определения количества цифр в записи числа

Edit2.Clear;

Edit3.Clear;

m:=strtoint(Edit1.Text);

k:=0;

while m<>0 do

Begin

m:=m div 10;

k:=k+1;

end;

Edit4.Text :=inttostr(k);

Summa.Enabled :=true;

end;

End.

Исходная форма для решения задачи

 

 

Рис.2