Prgm
Local n, summe, rest
ClrIO
Request "natürliche Zahl: ", n
expr(n)® n
0® summe
While n > 0
mod(n, 10) + summe® summe
iPart(n / 10)® n
EndWhile
Disp "Ziffernsumme = "&string(summe)
EndPrgm
| Programmcode | Bildschirmausgabe |
| ziffsum()
Prgm Local n, summe, rest ClrIO Request "natürliche Zahl: ", n expr(n)® n 0® summe While n > 0 mod(n, 10) + summe® summe iPart(n / 10)® n EndWhile Disp "Ziffernsumme = "&string(summe) EndPrgm |
|