Autor Beitrag
Fiete
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 611
Erhaltene Danke: 347

W7
Delphi 6 pro
BeitragVerfasst: Mo 20.05.24 12:45 
Moin,
wer sich für besondere Zahlen interessiert, der ist hier richtig.
Eine ästhetische Zahl ist eine natürliche Zahl deren benachbarte Ziffern sich genau um 1 unterscheiden.
z.B. 5456 oder 5654543
Beispiel
Die gewünschte Zahlenlänge(4-240) lässt sich einstellen, die Start- und Zielzahl kann über das entsprechende
Label generiert werden. Die Ergebnisse lassen sich bei Bedarf anzeigen.
Programmabbruch über <ESC>

Viel Spaß beim Testen.
Gruß Fiete
Einloggen, um Attachments anzusehen!
_________________
Fietes Gesetz: use your brain (THINK)


Zuletzt bearbeitet von Fiete am Di 21.05.24 08:42, insgesamt 1-mal bearbeitet

Für diesen Beitrag haben gedankt: Andreas_500
Horst_H
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1653
Erhaltene Danke: 243

WIN10,PuppyLinux
FreePascal,Lazarus
BeitragVerfasst: Di 21.05.24 06:12 
Hallo,

ich sehe weder Quelltext noch Bild.
Bei rosettacode.org gibt es so was für die Konsole auch, wenn auch nicht für 420 Stellen.

Gruß Horst
Fiete Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 611
Erhaltene Danke: 347

W7
Delphi 6 pro
BeitragVerfasst: Di 21.05.24 08:46 
Moin Horst,
habe mich wohl verdrückt, die Reparateur ist erledigt.
Gruß Fiete

_________________
Fietes Gesetz: use your brain (THINK)