Algorithmus um die Quersumme einer Zahl zu finden

wenn
es um Delphi geht musst du mal auf www.delphi-forum.de gucken

also um einigermaßen sprachunabhängig zu bleiben, mach ich es jetz einfach so in einer art pseudocode. musst du je nach sprache noch anpassen:

int zahl=34524;
int quersumme=0;
repeat
quersumme=quersumme + zahl mod 10;
zahl=zahl div 10;
until (zahl==0)


so am ende haste die zahl mit 0 überschrieben und die quersumme trägt das ergebnis. wenn man das als funktion einbindet, bleibt natürlich die zahl erhalten, ebenso wenn man für den schleifendurchlauf statt der originalzahl eine temporäre variable nutzt..