Tag 282 (Hansruedi Widmer)

Aufgabe:

https://twitter.com/HansruediWidmer/status/784626897372090368

Zum Tag 282: Die Summe der Teiler von 282 ist eine Quadratzahl. Es folgen in diesem Jahr noch 6 weitere „solche Tage“. Welche?

Code 01:

a:282 /* EINGABE */;
T[a]:[];
for i:1 thru a do if mod(a,i)=0 then T[a]:append(T[a],[i]);
Teilersumme:sum(T[a][i],i,1,length(T[a]));
if sqrt(Teilersumme)=floor(sqrt(Teilersumme)) then "Quadratzahl" else "keine Quadratzahl";

Code 02:

Hier müssen noch die weiteren 6 Lösungen gefunden werden! Dazu verwendet man eine FOR-Schleife.

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

Alle sieben Tage mit der Eigenschaft:

loesung_tag_282

Über Johnny Weilharter

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