Springen naar inhoud


- - - - -
Solved

Opdracht 036



  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 Xymtrix

Xymtrix

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 533 berichten
    Laatst bezocht 13 aug 2012 15:48
  • LocatieNederland

Geplaatst op 18 oktober 2010 - 09:37

Citeren

The decimal number, 585 = 10010010012 (binary), is palindromic in both bases.
Find the sum of all numbers, less than one million, which are palindromic in base 10 and base 2.
(Please note that the palindromic number, in either base, may not include leading zeros.)


#2 Xymtrix

Xymtrix

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 533 berichten
    Laatst bezocht 13 aug 2012 15:48
  • LocatieNederland

Geplaatst op 18 oktober 2010 - 09:38

lekker kleinVisual Basic Code:
	Function Problem36() As Long

		Dim answer As Long

		For I As Integer = 1 To 999999 Step 2
			If I.ToString = StrReverse(I.ToString) Then
				If Convert.ToString(I, 2) = StrReverse(Convert.ToString(I, 2)) Then
					answer += I
				End If
			End If
		Next

		Return answer

	End Function






Ook met taq Solved voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[Solved] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)