Posté par
loic74 loic74Bonsoir moi je l'ai fait avec Maple et je trouve [153, 370, 371, 407];
Voila mon algorithme :
L := [];
for k from 100 to 1000 do
s := irem(k, 10)^3;
d := iquo(k, 10);
s := s+irem(d, 10)^3;
d := iquo(d, 10);
s := s+irem(d, 10)^3;
if s = k then L:= [op(L), k]; fi: od: L;
Voila il ya peut etre plus simple mais en tout cas merci de votre énigme ca m'a permis de réviser mon DS informatique
