LiebesTester

[Klaus01]

eine Möglickeit:

machst Dir einen String s mit dem Inhalt 'abcdefg...xyz'
und eine Array of Integer aPrim mit Deinen Primzahln [2,3,5....]

dann kannst Du mit

aPrim[pos('a',s)] = primzahl von a

daraufzugreifen.

Das alles dann in ein Schleife bauen

Delphi-Quellcode:

for i:=1 to length(name) do
  zahl1:=zahl1*aPrim[pos(name[i],s)];

Nur ein Ansatz.
Wie sinnvoll das ganze ist, sei mal dahingestellt.

Grüße
Klaus