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;