programar deteccion de ultimos digitos pares en vectores

[einer]

hola gracias por tu respuesta..
intente con lo que me dices pero no sale el resultado que deberia... tomando el ejemplo que tu pones "234, 243, 675, 667, 444" el resultado deberia ser 3 por que solo 3 digitos llevan los 2 ultimos pares el 243 667 y 444

[ecfisa]

Hola.

Un modo es:

Código Delphi [-]
function FirstTwoPairs(Number: Integer): Boolean;
var
  Invert, Rest: Integer;
begin
  Invert := 0;
  while Number > 0 do
  begin
    Rest   := Number mod 10;
    Invert := Invert * 10 + Rest;
    Number := Number div 10;
  end;
  Result := ((Invert mod 10 mod 2)=0) and ((Invert mod 100 div 10 mod 2)=0);
end;

Otro:

Código Delphi [-]
function FirstTwoPairs(const Number: Integer): Boolean;
var
  s: string;
  a,b: Integer;
begin
  a := StrToInt(IntToStr(Number)[1]);
  b := StrToInt(IntToStr(Number)[2]);
  Result := (a mod 2 = 0) and (b mod 2 = 0);
end;

Ej. de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
 v  : array[1..5] of Integer = (234, 243, 675, 667, 444);
var
  i : Integer;
begin
  Memo1.Clear;
  for i := Low(V) to High(V) do
    if FirstTwoPairs(v[i]) then
     Memo1.Lines.Add(IntToStr(v[i]));
end;

Saludos

[[ElKurgan]]

El que te envíe me funciona sin problemas, asi que te debería funcionar también.

Pero, como siempre, el código de ecfisa es mucho más claro y eficiente...

Saludos

[ecfisa]

Jajaja eso sí que es exagerado !

Saludos