Hmmm ... was Du meinst sind Primzahlen. Hab noch nie den Begriff von "symmetrische Zahl" gehört. Naja, die einfachste Methode ist folgende:
Du willst prüfen ob die Zahl z eine Primzahl ist. Also ermittelst Du alle Zahlen x zw. 2 und z-1 und schaust nach, ob z modulo x = 0 ist:
Delphi-Quellcode:
function IstPrimzahl(z : integer) : boolean;
var
i : integer;
begin
result := true;
for i := 2 to z-1 do
if z mod i = 0 then
begin
result := false;
exit;
end;
end;
Das Problem ist übrigens auch als Faktorisierungsproblem bekannt. Eine effiziente Lösung ist nicht existent. Allerdings kannst Du den Aufwand für den Bruteforce Ansatz verringern. Du musst z.B. prinzipiell nicht bis z-1 testen sondern nur bis Wurzel aus z etc.. Aber das führt zu weit.
Für was magst das ganze denn verwenden?