Verschlüsselung Welche Faktoren von 1 bis 100 funktionieren?

[sirius]

Zum Beispiel kannst du zählen:

Delphi-Quellcode:

AnzahlDoppelt:=0;
for Buchstabenordnungszahl := 0 to 25 do 
  if Resteanzahl[Buchstabenordnungszahl] > 1 then
    inc(AnzahlDoppelt);
if AnzahlDoppelt>0 then memo1.lines.add(inttostr(Faktor)+' geht nicht')
                   else memo1.lines.add(inttostr(Faktor)+' geht');

Aber so schaffst du den LK nie