muy buenas vengo a pedir ayuda con mi proyecto
les explipco...
mi proyecto trata de identificar los numeros que tengan los pirmeros digitos pares como por ejemplo
243 el 2 y el 4 son los primeros digitos y son pares asi que un contador suma cuantos numeros introducidos tienen esa caracteristica (de los primeros 2 pares) no eh logrado concretarlo mas alla de que detecto por separado los numeros pares de cada numero introducido (por ejemplo si coloco
234 y
647 me sale como resultado *3* por el 2 y luego el 6 y el 4....) pero la idea es que salga 1 por que solo 1 de los 2 digitos lleva los primeros pares...
ayudenme por favor dejare adjunto lo que hice hasta ahora
psdt: es la parte final arriba hay sobre vectores
Código Delphi
[-]
procedure TForm1.Button7Click(Sender: TObject);
var
nro,contador,i,a:integer;
nrox,contadorx,ix,ax:integer;
contadorfinal:integer;
begin
i:=1;
contador:=0;
ix:=1;
contadorx:=0;
while i<=N do
begin
nro:=v[i];
while nro>9 do begin
nro:=nro div 10;
end;
if (nro mod 2)=0 then
contador:= contador+1;
i:=i+1;
end;
while ix<=N do
begin
nrox:=v[i];
while nrox>99 do begin
nrox:=nrox div 10;
end;
if (nrox mod 20)<=10 then
contadorx:= contadorx+1;
ix:=ix+1;
contadorfinal:=contador+contadorx;
contadorfinal:=contadorfinal+1;
end;
label4.Caption:=inttostr(contadorfinal);
end;
end.