Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Ganzzahl stellenweise ausgeben
| Uploader: |  Sebastian |
| Datum/Zeit: | 01.04.2012 18:02:22 |
Dim zahl As Integer = 123456780
Print "Gebe die Zahl " & zahl & " stellenweise von hinten nach vorne aus:"
Print
Dim As Integer x = zahl, ziffer
Do
ziffer = x MOD 10
x = x \ 10
Print ziffer
Loop Until x = 0
Print
Print "Fertig."
sleep