Zyklische Strukturen
WHILE - DO
QuersummeEs ist ein anwenderfreundliches Delphiprogramm zu erstellen, welches zu einer eingegebenen natürlichen Zahl die Quersumme berechnet und ausgibt.Dabei können die Operationen MOD und DIV angewendet werden. n MOD 10 liefert die jeweils rechteste Ziffer von n, und mit n DIV 10 kann diese letzte Ziffer abgeschnitten werden. Für diesen Vorgang ist eine Schleife zu schreiben, in der jeweils die letzte Ziffer zur Summe addiert wird, solange n DIV 10 noch größer als Null ist. |
|||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||
| Lösung | |||||||||||||||||||||||||||||||||||||||||
|
|
|
|
|||||||||||||||||||||||||||||||||||||||
