Zahl auf Zahlenpalindrom hin überprüfen

[himitsu]

isses wirklich so schwer?

müßten doch alle 6- und 5-stelligen Zahlenpalindroms zur Basis 10 sein?
(andere Stellenanzahlen analog)

Delphi-Quellcode:

Var i: Integer;

For i := 1 to 999 do
  If i mod 10 <> 0 Then
    Memo1.Lines.Add(Format('%d%d%d%.3d', [i mod 10, i div 10 mod 10, i div 100 mod 10, i]));
For i := 1 to 999 do
  If i mod 10 <> 0 Then
    Memo1.Lines.Add(Format('%d%d%.3d', [i mod 10, i div 10 mod 10, i]));

Zitat von Wiki:

Zahlenpalindrome bzw. Palindromzahlen sind Zahlen, deren Zahlensystemdarstellung von vorne und hinten gelesen den gleichen Wert hat, z. B. 1331 oder 742247

aber wieso dann?

Zitat von xZise:

Außerdem muss sie durch eine beliebige andere Zahl teilbar sein (ohne Rest).

bzw ist das überhaupt möglich?

[edit]
na toll, kaum macht man mal nebenbei noch was, schreiben Andere och sowas ... nur früher -.-°

[add]
billige Lösung ... und dann noch die anderen Stellenanzahlen durchgehn

Zitat:

ob alle Palidrome eines vielfachen zu bekommen (z.B. 81).

Delphi-Quellcode:

For i := 1 to 999 do
  If i mod 10 <> 0 Then Begin
    If (i + i mod 10 * 100000 + i div 10 mod 10 * 10000 + i div 100 mod 10 * 1000) mod 81 = 0 Then
      Memo1.Lines.Add(Format('%d%d%d%.3d', [i mod 10, i div 10 mod 10, i div 100 mod 10, i]));
    If (i + i mod 10 * 10000 + i div 10 mod 10 * 1000) mod 81 = 0 Then
      Memo1.Lines.Add(Format('%d%d%.3d', [i mod 10, i div 10 mod 10, i]));
  end;