Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: LiebesTester

    Delphi
    by JasonDX, 10. Apr 2006
  Es ginge noch etwas eleganter:
  const
  zahlen: array of byte = (2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101);
  //...
  zahl := zahlen * zahlen * zahlen * zahlen;
  
  was das wegschneiden der restlichen Ziffern angeht: mod: Der Restbetrag der Division durch 100 gibt die letzten beiden Stellen der Zahl :)
  
  greetz
  Mike