Ejercicio con Posiciones de dígitos

[gerupc]

Hola,

una vez más...me he bloqueado con un ejercicio, y el tema es, que no sé como tratar las posiciones de los digitos pertenecientes a determinada cifra.

El enunciado del problema es el siguiente:

Se introduce por el teclado una clave formada por un número entero de 5 cifras. Esta clave se considera correcta siempre que el valor del ultimo digito leído sea igual al ultimo digito de la suma de los 4 primeros dígitos de la clave. El programa deberá validar la clave y escribir en pantalla si es correcta o no.
Ejemplo:
24195 -> Suma = 2+4+1+9 = 16 􀃎 (5 <> 6) -> INCORRECTA
17480 -> Suma = 1+7+4+8 = 20 􀃎 (0 = 0) > CORRECTA

Y no sé cómo decirle al programa: 'si el último dígito de tal cifra, es igual a tal digito de tal cifra...luego...'

Es decir mi problema es la posición de los dítios, que no se cómo tratarlas, no el ejercicio en sí.

Si me pudieseis echar una mano, os lo agradecería.

Un saludo,

Geru.

[[seoane]]

¿Cuando lees la clave, la lees como un string o como un numero?

[jhonny]

Jo jo jo, ahora ya hacemos hasta tareas

Código Delphi [-]
var
  i, Acumulado :Integer;
  UltimoDigito :String;
begin
  Acumulado := 0;
  UltimoDigito := Edit1.Text[Length(Edit1.Text)];
  for i := 1 to Length(Edit1.Text)-1 do
  begin
    Acumulado  := Acumulado + StrToInt(Edit1.Text[i]);
  end;

  if IntToStr(Acumulado)[Length(IntToStr(Acumulado))] = UltimoDigito then
    ShowMessage('Correcto')
  else
    ShowMessage('InCorrecto');
end;

[gerupc]

Hola,

gracias por contestar :-)

@Seoane: pues la verdad, no sé :-S, he empezado a hacerlo como integer, pero la verdad es que no sé. ¿Cómo sería mejor?

@Johnny: muchas gracias, pero no puedo utilizar funciones tan avanzadas, ya que estos ejercicios únicamente me permiten solucionarlos con estructuras de control anidadas, bucles... y poco más :-) Pero te agradezco mucho tu aporte.

Un saludo,

Geru.

[[Chris]]

El código de jhonny no es tan avanzado que digamos, además no veo otra forma de hacerlo.

[[seoane]]

Pues mas o menos es igual de complicado:

Aqui te lo dejo leyendo la clave como integer:

Código Delphi [-]
var
  i,j,k: Integer;
begin
  Writeln('Introduce la clave:');
  Readln(i);
  j:= i mod 10;
  k:= 0;
  while i > 0 do
  begin
    inc(k,i mod 10); // Esto es igual a k:= k + (i mod 10);
    i:= i div 10;
  end;
  if k mod 10 = j then
    Writeln('La clave es correcta')
  else
    Writeln('La clave no es correcta');
end.

[jhonny]

A continuación... un lujo que uno se puede dar, solo de la manera mas rebuscada del mundo...

seoane, tu funcion tiene un pequeño problemita:

Código Delphi [-]
var
  i,j,k: Integer;
begin
  Writeln('Introduce la clave:');
  Readln(i);
  j:= i mod 10;
  k:= 0;
  while i > 0 do
  begin
    inc(k,i mod 10); // Esto es igual a k:= k + (i mod 10);
    i:= i div 10;
  end;
  if k mod 10 = j then
    Writeln('La clave es correcta')
  else
    Writeln('La clave no es correcta');
end; //Aqui iba ; no . 

Bueno gerupc, como bien dice D&W la funcion que te mostre no es muy avanzada, de hecho me parece mas avanzada la de seoane

[[seoane]]

Perdone usted, pero cuando yo pongo un punto es porque es un punto

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i,j,k: Integer;
begin
  Writeln('Introduce la clave:');
  Readln(i);
  j:= i mod 10;
  k:= 0;
  while i > 0 do
  begin
    inc(k,i mod 10);
    i:= i div 10;
  end;
  if k mod 10 = j then
    Writeln('La clave es correcta')
  else
    Writeln('La clave no es correcta');
end.