Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » ayuda

Pascal/Turbo Pascal - ayuda

Volver
Nuevo Tema
<<>>
 
Vista:

ayuda

Publicado por cristian (1 intervención) el 10/11/2021 20:26:33
Un saludo cordiales amigos, ustedes me pueden ayudar ?
1) Dado un número por parte del usuario verificar entre cuáles dígitos de dicho número se puede dividir su último dígito. Ejemplos:
38374 => el dígito 4 no se puede dividir entre ninguno de los dígitos del número.
12487396=> el dígito 6 se puede dividir entre 1 y entre 2
4128=> el dígito 8 se puede dividir entre 4, entre 2 y
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

ayuda

Publicado por dario (87 intervenciones) el 11/11/2021 04:50:28
Hola, espero esto te ayude.
Salu2.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program prueba;
uses sysutils;
var
    numero:string;
    lon,ud,i:byte;
begin
  numero:='12487396';
  lon:=length(numero);
  ud:=StrToInt(numero[lon]);
 
  for i:=lon-1 downto 1 do begin
    if ud mod StrToInt(numero[i]) = 0 then
        writeln('El digito ',ud,' se puede dividir entre ',StrToInt(numero[i]))
  end;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar