Ich kapier den Code auch nicht,
aber in Delphi würde ich das so machen:
Delphi-Quellcode:
function QuerSumme (Zahl: Integer);
var p: String; r,i: Integer;
begin
p := Inttostr(Zahl);
r := 0;
for i := 1 to length(p) do
begin
r := r + Strtoint(Copy(p,i,1));
end;
result := r;
end;
Ich glaube in C++ geht das so:
Code:
int i,Zahl,Quersummenzahl;
Zahl=0;
for(i=1; i<length(QuerSummenZahl); i++)
Zahl = Zahl + StrToInt(Copy(IntToStr(QuerSummenZahl),i,1));
QuerSummenZahl muss dann die Zahl zugewiesen kriegen,
aus der die QuerSumme errechnet werden soll.
Zahl ist dann die Quersumme.
Falls etwas nicht klappt: Versuche mal length groß zu schreiben oder
andere Befehle kein bzw. groß zu schreiben,
mfg
fred