Új hozzászólás Aktív témák

• #18174 Delila_1 veterán Tompkins #18164

  Új Válasz 2013-05-29 17:39:22 #18174

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Tompkins #18164 üzenetére

  Írtam egy funkciót rá, de csak az általad megadott számokkal ellenőriztem. Azokkal OK.

  Function Tukroz(szam As Integer)
  Dim ford, b As Integer, darab As Integer, osszeg As Long, szam1 As Long
  szam1 = szam
  If Len(szam1) = 0 Then Tukroz = 0: GoTo Vege
  For b = Len(szam1) To 1 Step -1
  ford = ford & Mid(szam, b, 1)
  Next
  If szam = ford * 1 Then
  Tukroz = 0: GoTo Vege
  Else
  Do
  osszeg = szam1 + ford
  ford = ""
  darab = darab + 1
  For b = Len(osszeg) To 1 Step -1
  ford = ford & Mid(osszeg, b, 1)
  Next
  szam1 = osszeg
  If szam1 = ford * 1 Then
  Tukroz = darab: GoTo Vege
  End If
  Loop While szam1 <> ford * 1
  End If
  Tukroz = darab
  
  Vege:
  End Function

Új hozzászólás Aktív témák