Hoch Rechnungsprogramm

[boxer123]

Also das programm soll folgendes tun. zb. die zahl 112, der computer soll dann ausrechen

1 hoch 3, 1 hoch 3, 2 hoch 3

Und dann soll er das ergebnis in ein edit ausgeben.

Ich habe ein ansatz komm aber nicht weiter

Delphi-Quellcode:

var zahl1,zahl2,zahl3,i,:integer;
begin
  x:=strtoint(edit1.text);
    zahl1:= (x mod 10) div 1;
    zahl2:= (x mod 100) div 10;
    zahl3:= (x mod 1000) div 100;
  for i:= 1 to 3 do