|
FactorInteger[9999] liefert 3^2 * 11 * 101 Aus Annahme : Mod[1000 t + 100 a + 10 l +k,101]==0 folgt Mod[91 t -a + 10 l +k,101]==0 daraus wieder Mod[10(l-t) +k-a,101]==0 und das kann nur sein, wenn : l=t und k=a Widerspruch zur Annahme. Daraus folgt Mod[101d + i,101]==0 und hieraus i=0!!!!!!!! Nun koennte man mit den Teilbarkeiten durch 3*3 und 11 fortfahren. Die Frage ist nur, wieviel Wissen darf ich in die Aufgabe stecken. Schoen waere es, wenn ich i==0 mit Mathematica herausbekaeme, denn das Herausfiltern der Loesung aus allen Moeglichkeiten kann man sicher mehr oder weniger elegant aufschreiben aber eine elegante Loesung ist es nicht (in diesem Sinne waere ein Fortranprogramm sicher das schnellste). Ich wuerde die Loesungen favorisieren, die ohne zu probieren die Loesung findet. Mit freundlichen Gruessen Hans-Joachim Spitzer |