Zyklische Strukturen
REPEAT - UNTIL
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, bis n DIV 10 Null ist. |
|||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||
| Lösung | |||||||||||||||||||||||||||||||||||||||||
|
|
|
|
|||||||||||||||||||||||||||||||||||||||
