Übertrag bei addieren und subtrahieren

[Sharky]

Hai Nils_13,

mal so ins Blaue gedacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  a : integer;
  b : integer;
  summe : integer;
  uebertrag : integer;
begin
  a := 8;
  b := 8;
  summe := (a+b) MOD 10;
  uebertrag := (a+b) DIV 10;

  Label1.Caption := IntToStr(summe);
  Label2.Caption := IntToStr(uebertrag);
end;

Der Code ist natürlich immer nur für eine Ziffer der Zahlen.