Seite_039

GWBASIC:

Maxima:

x /* sei die Anzahl der Kokosnuesse */;
for x:1 thru 20000 do
block(
       if mod(x,5)=1  then ev(x1:x-x/5-1) else return,
       if mod(x1,5)=1 then ev(x2:x1-x1/5-1) else return,
       if mod(x2,5)=1 then ev(x3:x2-x2/5-1) else return,
       if mod(x3,5)=1 then ev(x4:x3-x3/5-1) else return,
       if mod(x4,5)=1 then ev(x5:x4-x4/5-1) else return,
       if mod(x5,5)=0 then ev(kn:x) else return
      );

Maxima Onlinehttp://maxima-online.org/?inc=r-2046841983 arbeitet nicht gut genug 😦
Wenn man den obigen Programmcode nach wxMaxima (Lokalinstallation) kopiert, ergibt sich die Lösung 3121.

Werbeanzeigen

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden /  Ändern )

Google Foto

Du kommentierst mit Deinem Google-Konto. Abmelden /  Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden /  Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden /  Ändern )

Verbinde mit %s