Suma de dígitos primos - Simplificar código

[ecfisa]

Hola Subliminalz.

Sólo como agregado, si quisieras obtener la suma a partir de un valor numérico:

Código Delphi [-]
function SumarDigitosPrimos(Numero: Integer): Integer;
var
  i, Digito: Integer;
begin
  Result := 0;
  while Numero > 0 do
  begin
    Digito := Numero mod 10;
    if Digito in [1,2,3,5,7] then
      Inc(Result, Digito);
    Numero := Numero div 10;
  end;
end;

// llamada
...
begin
  ShowMessage(IntToStr(SumarDigitosPrimos(12357)));
end;

Saludos.