fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Funzt net:

Uploader:	The_Muh
Datum/Zeit:	08.09.2007 16:22:08

dim zahl as integer

dim as integer einer = zahl mod 10

dim as integer zehner = (zahl mod 100) \ 10

dim as integer hunderter = (zahl mod 1000) \ 100

dim as integer tausender = (zahl mod 10000) \ 1000

dim as integer zehntausender = (zahl mod 100000) \ 10000



dim as integer schritt1, schritt2, zahl2, zahl3

input "zahl: ", zahl

do

    if len(zahl) > 1 then

            zahl = einer^2 + zehner^2

    end if

    if len(zahl) = 1 then exit do

loop

print zahl

sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.