Un peu [HS] Pour le plaisir : Somme de carrés consécutifs
7 réponses
Tatanka
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme
de carrés consécutifs commençant par 1^2
est égale à un carré,
1^2 + 2^2 = 5 (pas un carré)
1^2 + 2^2 + 3^2 = 14 (pas un carré)
...
faire écrire dans un MsgBox la valeur de i et n :
1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2
en utilisant le moins de caractères possibles.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Tatanka
Sans compter les espaces, mon premier essai contient 64 caractères. Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" a écrit dans le message de news: %23Wi%
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme de carrés consécutifs commençant par 1^2 est égale à un carré, 1^2 + 2^2 = 5 (pas un carré) 1^2 + 2^2 + 3^2 = 14 (pas un carré) ...
faire écrire dans un MsgBox la valeur de i et n : 1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2 en utilisant le moins de caractères possibles.
Serge
Sans compter les espaces, mon premier essai
contient 64 caractères.
Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: %23Wi%23wJLiIHA.3940@TK2MSFTNGP05.phx.gbl...
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme
de carrés consécutifs commençant par 1^2
est égale à un carré,
1^2 + 2^2 = 5 (pas un carré)
1^2 + 2^2 + 3^2 = 14 (pas un carré)
...
faire écrire dans un MsgBox la valeur de i et n :
1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2
en utilisant le moins de caractères possibles.
Sans compter les espaces, mon premier essai contient 64 caractères. Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" a écrit dans le message de news: %23Wi%
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme de carrés consécutifs commençant par 1^2 est égale à un carré, 1^2 + 2^2 = 5 (pas un carré) 1^2 + 2^2 + 3^2 = 14 (pas un carré) ...
faire écrire dans un MsgBox la valeur de i et n : 1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2 en utilisant le moins de caractères possibles.
Serge
FdeCourt
Hello,
Que comptes tu dans ton code ? Le Sub et End Sub ? La ligne avec le Msgbox ?
F.
On 18 mar, 06:25, "Tatanka" wrote:
Sans compter les espaces, mon premier essai contient 64 caractères. Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" a écrit dans le message de new s: %23Wi%
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme de carrés consécutifs commençant par 1^2 est égale à un carré, 1^2 + 2^2 = 5 (pas un carré) 1^2 + 2^2 + 3^2 = 14 (pas un carré) ...
faire écrire dans un MsgBox la valeur de i et n : 1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2 en utilisant le moins de caractères possibles.
Serge- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Hello,
Que comptes tu dans ton code ?
Le Sub et End Sub ?
La ligne avec le Msgbox ?
F.
On 18 mar, 06:25, "Tatanka" <garno...@ENLEVER.videotron.ca> wrote:
Sans compter les espaces, mon premier essai
contient 64 caractères.
Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de new s: %23Wi%23wJLiIHA.3...@TK2MSFTNGP05.phx.gbl...
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme
de carrés consécutifs commençant par 1^2
est égale à un carré,
1^2 + 2^2 = 5 (pas un carré)
1^2 + 2^2 + 3^2 = 14 (pas un carré)
...
faire écrire dans un MsgBox la valeur de i et n :
1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2
en utilisant le moins de caractères possibles.
Que comptes tu dans ton code ? Le Sub et End Sub ? La ligne avec le Msgbox ?
F.
On 18 mar, 06:25, "Tatanka" wrote:
Sans compter les espaces, mon premier essai contient 64 caractères. Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" a écrit dans le message de new s: %23Wi%
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme de carrés consécutifs commençant par 1^2 est égale à un carré, 1^2 + 2^2 = 5 (pas un carré) 1^2 + 2^2 + 3^2 = 14 (pas un carré) ...
faire écrire dans un MsgBox la valeur de i et n : 1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2 en utilisant le moins de caractères possibles.
Serge- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Tatanka
Salut F.
J'ai compté tous les caractères (sans les espaces) à partir de i = 1 jusqu'à MsgBox i & " " & n.
Sub Somme_De_Carrés() i = 1 s = 1 Do i = i + 1 s = s + i ^ 2 n = Sqr(s) If Int(n) = n Then Exit Do Loop MsgBox i & " " & n End Sub
Serge
"FdeCourt" a écrit dans le message de news:
Hello,
Que comptes tu dans ton code ? Le Sub et End Sub ? La ligne avec le Msgbox ?
F.
On 18 mar, 06:25, "Tatanka" wrote:
Sans compter les espaces, mon premier essai contient 64 caractères. Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" a écrit dans le message de news: %23Wi%
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme de carrés consécutifs commençant par 1^2 est égale à un carré, 1^2 + 2^2 = 5 (pas un carré) 1^2 + 2^2 + 3^2 = 14 (pas un carré) ...
faire écrire dans un MsgBox la valeur de i et n : 1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2 en utilisant le moins de caractères possibles.
Serge- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut F.
J'ai compté tous les caractères (sans les espaces)
à partir de i = 1 jusqu'à MsgBox i & " " & n.
Sub Somme_De_Carrés()
i = 1
s = 1
Do
i = i + 1
s = s + i ^ 2
n = Sqr(s)
If Int(n) = n Then Exit Do
Loop
MsgBox i & " " & n
End Sub
Serge
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
74fcd969-013b-4124-8591-984b09e68f47@i12g2000prf.googlegroups.com...
Hello,
Que comptes tu dans ton code ?
Le Sub et End Sub ?
La ligne avec le Msgbox ?
F.
On 18 mar, 06:25, "Tatanka" <garno...@ENLEVER.videotron.ca> wrote:
Sans compter les espaces, mon premier essai
contient 64 caractères.
Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de news: %23Wi%23wJLiIHA.3...@TK2MSFTNGP05.phx.gbl...
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme
de carrés consécutifs commençant par 1^2
est égale à un carré,
1^2 + 2^2 = 5 (pas un carré)
1^2 + 2^2 + 3^2 = 14 (pas un carré)
...
faire écrire dans un MsgBox la valeur de i et n :
1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2
en utilisant le moins de caractères possibles.
J'ai compté tous les caractères (sans les espaces) à partir de i = 1 jusqu'à MsgBox i & " " & n.
Sub Somme_De_Carrés() i = 1 s = 1 Do i = i + 1 s = s + i ^ 2 n = Sqr(s) If Int(n) = n Then Exit Do Loop MsgBox i & " " & n End Sub
Serge
"FdeCourt" a écrit dans le message de news:
Hello,
Que comptes tu dans ton code ? Le Sub et End Sub ? La ligne avec le Msgbox ?
F.
On 18 mar, 06:25, "Tatanka" wrote:
Sans compter les espaces, mon premier essai contient 64 caractères. Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" a écrit dans le message de news: %23Wi%
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme de carrés consécutifs commençant par 1^2 est égale à un carré, 1^2 + 2^2 = 5 (pas un carré) 1^2 + 2^2 + 3^2 = 14 (pas un carré) ...
faire écrire dans un MsgBox la valeur de i et n : 1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2 en utilisant le moins de caractères possibles.
Serge- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
isabelle
salut Serge,
sans vouloir faire le salopiau ;-) mais avec 54
Sub Somme_De_Carrés() i = 1 s = 1 Do i = i + 1 s = s + i ^ 2 n = Sqr(s) Loop While Int(n) <> n MsgBox i & " " & n End Sub
isabelle
Sans compter les espaces, mon premier essai contient 64 caractères. Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" a écrit dans le message de news: %23Wi%
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme de carrés consécutifs commençant par 1^2 est égale à un carré, 1^2 + 2^2 = 5 (pas un carré) 1^2 + 2^2 + 3^2 = 14 (pas un carré) ...
faire écrire dans un MsgBox la valeur de i et n : 1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2 en utilisant le moins de caractères possibles.
Serge
salut Serge,
sans vouloir faire le salopiau ;-)
mais avec 54
Sub Somme_De_Carrés()
i = 1
s = 1
Do
i = i + 1
s = s + i ^ 2
n = Sqr(s)
Loop While Int(n) <> n
MsgBox i & " " & n
End Sub
isabelle
Sans compter les espaces, mon premier essai
contient 64 caractères.
Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: %23Wi%23wJLiIHA.3940@TK2MSFTNGP05.phx.gbl...
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme
de carrés consécutifs commençant par 1^2
est égale à un carré,
1^2 + 2^2 = 5 (pas un carré)
1^2 + 2^2 + 3^2 = 14 (pas un carré)
...
faire écrire dans un MsgBox la valeur de i et n :
1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2
en utilisant le moins de caractères possibles.
Sub Somme_De_Carrés() i = 1 s = 1 Do i = i + 1 s = s + i ^ 2 n = Sqr(s) Loop While Int(n) <> n MsgBox i & " " & n End Sub
isabelle
Sans compter les espaces, mon premier essai contient 64 caractères. Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" a écrit dans le message de news: %23Wi%
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme de carrés consécutifs commençant par 1^2 est égale à un carré, 1^2 + 2^2 = 5 (pas un carré) 1^2 + 2^2 + 3^2 = 14 (pas un carré) ...
faire écrire dans un MsgBox la valeur de i et n : 1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2 en utilisant le moins de caractères possibles.
Serge
FdeCourt
Hello je t'enlève quelques caractères (62) :
Sub SommeCarres() Do x = x + 1 y = y + x ^ 2 v = Sqr(y) Loop Until v = Fix(v) And y > 1 MsgBox x & " " & v End Sub
F.
On 18 mar, 22:39, "Tatanka" wrote:
Salut F.
J'ai compté tous les caractères (sans les espaces) à partir de i = 1 jusqu'à MsgBox i & " " & n.
Sub Somme_De_Carrés() i = 1 s = 1 Do i = i + 1 s = s + i ^ 2 n = Sqr(s) If Int(n) = n Then Exit Do Loop MsgBox i & " " & n End Sub
Serge
"FdeCourt" a écrit dans le message de news:
Hello,
Que comptes tu dans ton code ? Le Sub et End Sub ? La ligne avec le Msgbox ?
F.
On 18 mar, 06:25, "Tatanka" wrote:
Sans compter les espaces, mon premier essai contient 64 caractères. Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" a écrit dans le message de n ews: %23Wi%
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme de carrés consécutifs commençant par 1^2 est égale à un carré, 1^2 + 2^2 = 5 (pas un carré) 1^2 + 2^2 + 3^2 = 14 (pas un carré) ...
faire écrire dans un MsgBox la valeur de i et n : 1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2 en utilisant le moins de caractères possibles.
Serge- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Hello je t'enlève quelques caractères (62) :
Sub SommeCarres()
Do
x = x + 1
y = y + x ^ 2
v = Sqr(y)
Loop Until v = Fix(v) And y > 1
MsgBox x & " " & v
End Sub
F.
On 18 mar, 22:39, "Tatanka" <garno...@ENLEVER.videotron.ca> wrote:
Salut F.
J'ai compté tous les caractères (sans les espaces)
à partir de i = 1 jusqu'à MsgBox i & " " & n.
Sub Somme_De_Carrés()
i = 1
s = 1
Do
i = i + 1
s = s + i ^ 2
n = Sqr(s)
If Int(n) = n Then Exit Do
Loop
MsgBox i & " " & n
End Sub
Serge
"FdeCourt" <fdeco...@gmail.com> a écrit dans le message de news:
74fcd969-013b-4124-8591-984b09e68...@i12g2000prf.googlegroups.com...
Hello,
Que comptes tu dans ton code ?
Le Sub et End Sub ?
La ligne avec le Msgbox ?
F.
On 18 mar, 06:25, "Tatanka" <garno...@ENLEVER.videotron.ca> wrote:
Sans compter les espaces, mon premier essai
contient 64 caractères.
Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de n ews: %23Wi%23wJLiIHA.3...@TK2MSFTNGP05.phx.gbl...
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme
de carrés consécutifs commençant par 1^2
est égale à un carré,
1^2 + 2^2 = 5 (pas un carré)
1^2 + 2^2 + 3^2 = 14 (pas un carré)
...
faire écrire dans un MsgBox la valeur de i et n :
1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2
en utilisant le moins de caractères possibles.
Serge- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
Sub SommeCarres() Do x = x + 1 y = y + x ^ 2 v = Sqr(y) Loop Until v = Fix(v) And y > 1 MsgBox x & " " & v End Sub
F.
On 18 mar, 22:39, "Tatanka" wrote:
Salut F.
J'ai compté tous les caractères (sans les espaces) à partir de i = 1 jusqu'à MsgBox i & " " & n.
Sub Somme_De_Carrés() i = 1 s = 1 Do i = i + 1 s = s + i ^ 2 n = Sqr(s) If Int(n) = n Then Exit Do Loop MsgBox i & " " & n End Sub
Serge
"FdeCourt" a écrit dans le message de news:
Hello,
Que comptes tu dans ton code ? Le Sub et End Sub ? La ligne avec le Msgbox ?
F.
On 18 mar, 06:25, "Tatanka" wrote:
Sans compter les espaces, mon premier essai contient 64 caractères. Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" a écrit dans le message de n ews: %23Wi%
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme de carrés consécutifs commençant par 1^2 est égale à un carré, 1^2 + 2^2 = 5 (pas un carré) 1^2 + 2^2 + 3^2 = 14 (pas un carré) ...
faire écrire dans un MsgBox la valeur de i et n : 1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2 en utilisant le moins de caractères possibles.
Serge- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Tatanka
Merci Isabelle et FdeCourt de me rappeler que Loop Until et Loop While n'existent pas en vain ;-)
Bonne journée
Serge, qui pellete Until Été et qui s'impatiente While caca blanc tomber.
"isabelle" a écrit dans le message de news: %
salut Serge,
sans vouloir faire le salopiau ;-) mais avec 54
Sub Somme_De_Carrés() i = 1 s = 1 Do i = i + 1 s = s + i ^ 2 n = Sqr(s) Loop While Int(n) <> n MsgBox i & " " & n End Sub
isabelle
Sans compter les espaces, mon premier essai contient 64 caractères. Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" a écrit dans le message de news: %23Wi%
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme de carrés consécutifs commençant par 1^2 est égale à un carré, 1^2 + 2^2 = 5 (pas un carré) 1^2 + 2^2 + 3^2 = 14 (pas un carré) ...
faire écrire dans un MsgBox la valeur de i et n : 1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2 en utilisant le moins de caractères possibles.
Serge
Merci Isabelle et FdeCourt de me rappeler
que Loop Until et Loop While n'existent pas en vain ;-)
Bonne journée
Serge, qui pellete Until Été et qui s'impatiente While caca blanc tomber.
"isabelle" <i@v> a écrit dans le message de news: %23pEv9ZXiIHA.3448@TK2MSFTNGP04.phx.gbl...
salut Serge,
sans vouloir faire le salopiau ;-)
mais avec 54
Sub Somme_De_Carrés()
i = 1
s = 1
Do
i = i + 1
s = s + i ^ 2
n = Sqr(s)
Loop While Int(n) <> n
MsgBox i & " " & n
End Sub
isabelle
Sans compter les espaces, mon premier essai
contient 64 caractères.
Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: %23Wi%23wJLiIHA.3940@TK2MSFTNGP05.phx.gbl...
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme
de carrés consécutifs commençant par 1^2
est égale à un carré,
1^2 + 2^2 = 5 (pas un carré)
1^2 + 2^2 + 3^2 = 14 (pas un carré)
...
faire écrire dans un MsgBox la valeur de i et n :
1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2
en utilisant le moins de caractères possibles.
Merci Isabelle et FdeCourt de me rappeler que Loop Until et Loop While n'existent pas en vain ;-)
Bonne journée
Serge, qui pellete Until Été et qui s'impatiente While caca blanc tomber.
"isabelle" a écrit dans le message de news: %
salut Serge,
sans vouloir faire le salopiau ;-) mais avec 54
Sub Somme_De_Carrés() i = 1 s = 1 Do i = i + 1 s = s + i ^ 2 n = Sqr(s) Loop While Int(n) <> n MsgBox i & " " & n End Sub
isabelle
Sans compter les espaces, mon premier essai contient 64 caractères. Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" a écrit dans le message de news: %23Wi%
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme de carrés consécutifs commençant par 1^2 est égale à un carré, 1^2 + 2^2 = 5 (pas un carré) 1^2 + 2^2 + 3^2 = 14 (pas un carré) ...
faire écrire dans un MsgBox la valeur de i et n : 1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2 en utilisant le moins de caractères possibles.
Serge
isabelle
hé oui, un autre 30 cm, c'est la constante des mercredi des mois de février et mars :-( isabelle
Merci Isabelle et FdeCourt de me rappeler que Loop Until et Loop While n'existent pas en vain ;-)
Bonne journée
Serge, qui pellete Until Été et qui s'impatiente While caca blanc tomber.
"isabelle" a écrit dans le message de news: %
salut Serge,
sans vouloir faire le salopiau ;-) mais avec 54
Sub Somme_De_Carrés() i = 1 s = 1 Do i = i + 1 s = s + i ^ 2 n = Sqr(s) Loop While Int(n) <> n MsgBox i & " " & n End Sub
isabelle
Sans compter les espaces, mon premier essai contient 64 caractères. Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" a écrit dans le message de news: %23Wi%
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme de carrés consécutifs commençant par 1^2 est égale à un carré, 1^2 + 2^2 = 5 (pas un carré) 1^2 + 2^2 + 3^2 = 14 (pas un carré) ...
faire écrire dans un MsgBox la valeur de i et n : 1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2 en utilisant le moins de caractères possibles.
Serge
hé oui, un autre 30 cm, c'est la constante des mercredi des mois de février et mars :-(
isabelle
Merci Isabelle et FdeCourt de me rappeler
que Loop Until et Loop While n'existent pas en vain ;-)
Bonne journée
Serge, qui pellete Until Été et qui s'impatiente While caca blanc tomber.
"isabelle" <i@v> a écrit dans le message de news: %23pEv9ZXiIHA.3448@TK2MSFTNGP04.phx.gbl...
salut Serge,
sans vouloir faire le salopiau ;-)
mais avec 54
Sub Somme_De_Carrés()
i = 1
s = 1
Do
i = i + 1
s = s + i ^ 2
n = Sqr(s)
Loop While Int(n) <> n
MsgBox i & " " & n
End Sub
isabelle
Sans compter les espaces, mon premier essai
contient 64 caractères.
Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: %23Wi%23wJLiIHA.3940@TK2MSFTNGP05.phx.gbl...
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme
de carrés consécutifs commençant par 1^2
est égale à un carré,
1^2 + 2^2 = 5 (pas un carré)
1^2 + 2^2 + 3^2 = 14 (pas un carré)
...
faire écrire dans un MsgBox la valeur de i et n :
1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2
en utilisant le moins de caractères possibles.
hé oui, un autre 30 cm, c'est la constante des mercredi des mois de février et mars :-( isabelle
Merci Isabelle et FdeCourt de me rappeler que Loop Until et Loop While n'existent pas en vain ;-)
Bonne journée
Serge, qui pellete Until Été et qui s'impatiente While caca blanc tomber.
"isabelle" a écrit dans le message de news: %
salut Serge,
sans vouloir faire le salopiau ;-) mais avec 54
Sub Somme_De_Carrés() i = 1 s = 1 Do i = i + 1 s = s + i ^ 2 n = Sqr(s) Loop While Int(n) <> n MsgBox i & " " & n End Sub
isabelle
Sans compter les espaces, mon premier essai contient 64 caractères. Il y a sûrement un salopiau qui peut raccourcir ça ;-)))
Serge
"Tatanka" a écrit dans le message de news: %23Wi%
Bonjour, Bonsoir ou Bonne nuit,
Sachant qu'il est démontré qu'une seule somme de carrés consécutifs commençant par 1^2 est égale à un carré, 1^2 + 2^2 = 5 (pas un carré) 1^2 + 2^2 + 3^2 = 14 (pas un carré) ...
faire écrire dans un MsgBox la valeur de i et n : 1^2 + 2^2 + 3^2 + 4^2 + ... + i^2 = n^2 en utilisant le moins de caractères possibles.