Das deutsche QBasic- und FreeBASIC-Forum

[Balu]

Zum Thema "happy numbers": 1) Wie viele Startwerte von 200 bis 220 erreichen einen Fixpunkt? 2) Kuben der Ziffern addieren.( Bsp. für die Start zahl 245: 2^3 + 4^3 + 5^3= 197.) Programm für mehrere Fixpunkte und eventuell mehrere Schleifen!

Viel spaß!

[dreael]

Habe auch hierfür einen kleinen Code angesetzt:

http://beilagen.dreael.ch/QB/HAPPY_NR.BAS

Ist noch interessant: Ergibt nach einigen Rekursionen eine Periodizität => Könnte man also noch erweitern, diese Periodizität selber zu erkennen.
_________________
Teste die PC-Sicherheit mit www.sec-check.net