Prgm
Local n, summe, rest, taste
0 ® taste
While taste ¹ 264
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 "Ziffersumme = "&string(summe)
Disp "nochmal ... bel. Taste; Ende = ESC"
0 ® taste
While taste = 0
getKey() ® taste
EndWhile
EndWhile
EndPrgm
