Сложение двух цифр Delphi

[MrMorozko]

ДОброе время суток Допустим дано двухзначное число и мне нужно сложить его первую цифру с последней! что мне нужно написать? спасибо

[fbus]

либо перевести в string а потом в integer
либо поиграть с делением (делишь на 10, округляешь до целого и получаешь 1ю цифру и.т.д.)
ИМХО 1й способ проще

[_-Re@l-_]

t:=IntToStr(a);
S:=StrToInt(S[0])+StrToInt(S[Length(S)];

Ну вот как-то так.

[Kingdom_Reborn]

var
  x: Longint;
  FirstDigit, LastDigit: Byte;
begin
  ReadLn(x);
  LastDigit := x mod 10;
  while x <> 0 do
  begin
    FirstDigit := x mod 10;
    x := x div 10;
  end;
  WriteLn(FirstDigit + LastDigit);
end.

[MrMorozko]

Спасибо вам

[Onekey]

Вот. Недавно эксперементировал. Способ конечно не самый лучший, и не много запутанный.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
  private
  function DigitRoot (var DR_CHISLO : integer) : integer;
  function DigitSum (var DS_CHISLO : integer) : integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

function TForm1.DigitRoot(var DR_CHISLO: integer): integer;
var tmp : integer;
begin
  tmp := DR_CHISLO;
    while tmp >= 10 do tmp := DigitSum(tmp);
  DigitRoot := tmp;
end;

function TForm1.DigitSum(var DS_CHISLO: integer): integer;
var tmp, sum, celoe, drob : integer;
begin
  sum := 0;
  tmp := DS_CHISLO;
    while tmp >= 10 do
      begin
        celoe := tmp div 10;
        drob := tmp mod 10;
        sum := sum + drob;
        tmp := celoe;
      end;
  sum := sum + tmp;
  DigitSum := sum;
end;

procedure TForm1.FormCreate(Sender: TObject);
var a, b, c, tmp : integer;
var N, S : integer;
begin
  N := 1000;
  S := 15;
  b := DigitRoot(N);
  c := DigitSum(N);
  a := N+1;
  while a <= 100000 do
    begin
      tmp := DigitSum(a);
      if tmp = S then break ;
      a := a+1;
    end;
  Label1.Caption := inttostr(b);
  label2.Caption := inttostr(c);
  label5.Caption := inttostr(a);
end;

end.