Numeri "strani"

Un forum interamente dedicato ai quiz ed agli indovinelli. Create un post nuovo per ogni quiz, e leggete gli annunci e gli adesivi dei moderatori per le altre norme all'interno di questo forum.

Moderatori: IGiullari, sava73, renard

Messaggioda Lambo » 21 set 2004, 2:51

L'ho fatto al PC, ed è un metodo semplice (circa 3 minuti).
Questo è per Excel (ovvero VB, con qualche correzione):

set r = 1
set a=1
set TargetNUM=16830

while a<TargetNUM
somma = 0
set x=0
while x<TargetNUM and TargetNUM^3>somma
somma = somma + (a + x) ^ 3
if somma = TargetNUM ^ 3 Then Foglio1.Cells(1 + r, 1) = a: Foglio1.Cells(1 + r, 2) = x: r = r + 1
wend
wend
Offline Lambo
Goblin Tetrapiloctomus
Goblin Tetrapiloctomus

Avatar utente
TdG Moderator
 
Messaggi: 1339
Iscritto il: 26 giugno 2003
Goblons: 40.00
Località: Roma Nord

Messaggioda renard » 21 set 2004, 12:05

Buono... Io per ora non ho altri indovinelli di questo tipo, quindi se nessun altro ne ha di nuovi da proporre chiudo.
l'importante è vincere!

Partite recenti:

Immagine
Offline renard
Onnisciente
Onnisciente

Avatar utente
TdG Moderator
 
Messaggi: 4255
Iscritto il: 05 dicembre 2003
Goblons: 20.00
Località: Palermo

Messaggioda Balder » 21 set 2004, 19:14

Interessante...
"'Cause WHAT YOU SEE YOU MIGHT NOT GET
And we can bet so don't you get souped yet
You're scheming on a thing that's a mirage
I'm trying to tell you now it's sabotage"

Beastie Boys (evidentemente riferendosi agli editor WYSIWYG)
Offline Balder
Esperto
Esperto

Avatar utente
 
Messaggi: 507
Iscritto il: 13 maggio 2004
Goblons: 10.00
Località: Roma

Precedente


  • Pubblicita`

Torna a Quiz ed Indovinelli



Chi c’è in linea

Visitano il forum: Nessuno e 0 ospiti