x²+8x=m²
x ist eine ungerade Zahl ab 3 (3,5,7,9,....) Die Schleife soll die ungeraden Zahlen der Reihe nach einsetzen, bis das Resultat eine Quadratzahl ist.
Programmieren - alles kontrollieren 4.934 Themen, 20.613 Beiträge
Könnte man z.B. so machen:
(define (xexpr x)
(+ (* x x) (* 8 x)))
(define (lera39 x)
(if (= (xexpr x) (sqr (round (sqrt (xexpr x)))))
(x)
(lera39 (+ 2 x))))
(lera39 3)
Programmiersprache war Dir ja egal und zu Assembler hatte ich gerade keine Lust ;-)