Tag 332

Leider gehen die Tage des Jahres bald zu Ende!

Aufgabe:

Code:

pz:1;
Liste:[];
Summe:0;
for i:1 thru 332 do block(pz:next_prime(pz),Liste:append(Liste,[pz]),Summe:Summe+pz);
display(Liste,Summe);
Primzahl:primep(Summe);

Verkürzte Lösung mit wxMaxima:

t332

Lösung mit Maxima-Online:

http://maxima-online.org/?inc=r1266854947

Über Johnny Weilharter

Direktor i. R. der Bundeshandelsakademie und Bundeshandelssschule in Tamsweg, Österreich
Dieser Beitrag wurde unter BYOD, FUNKTIONEN, Hansruedi Widmer, Listenverarbeitung, Literaturhinweis, Summen, ZUSAMMENARBEIT veröffentlicht. Setze ein Lesezeichen auf den Permalink.