Mensajes

Código [Seleccionar] Expandir

12*20=240
240*2=480
13+7=20
20-5=15
480+15=495

La pesadilla de Bender 

1000 11 110 1 111 1010 2

24

Código [Seleccionar] Expandir

789+456-123=1122

100 2 300 4 500 6 700

35

13 3 19 1 11 22 4

1000

Pues si pero el quiere automatizar con VB, se supone que no editar manualmente el codigo

Código (vb) [Seleccionar] Expandir

Sub quitaLaScript(sCode As String)
  Dim iInicio As Integer
  iInicio = InStr(sCode, "<!-- www.000webhost.com Analytics Code -->")
  If iInicio > 0 Then sCode = Mid$(sCode, 1, iInicio - 1)
End Sub

[512]

Buenas:

Código [Seleccionar] Expandir

13*2=26
26*23=598
598-99=499
7+6=13
499+13=512

         

                      85 x 6:   510
        510 + 2:   512   

               Enhorabuena West 
 

Código (vb) [Seleccionar] Expandir


function quitaLaScript(byval sCode as string) as string
  dim iInicio as integer
  quitaLaScript=sCode
  if instr(sCode,"<!-- www.000webhost.com Analytics Code -->") then
     iInicio=instr(sCode,"<!-- www.000webhost.com Analytics Code -->")
     quitaLaScript=mid(sCode,1,iInicio-1)
  end if
end function


cambiaron las reglas? 

buenas ideas la de caricaturizar y lo de las palabras , se me viene a la mente una especie de historieta... ahora falta dedicarle algo de tiempo ...gracias

[666!]

emmm

666!   Santa cachucha!

Código [Seleccionar] Expandir


numero="66";
strcat (numero, "6");


gane?  

Código [Seleccionar] Expandir

60/6=10
10*66=660
72-66=6
660+6=666