Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Programa Dígito Verificador
- {rut1,rut2,rut3,rut4,rut5,rut6,rut7,rut8,res1,res2,res3,res4,res5,res6,res7,res8,suma,rest,di_ve: Son Variables de tipo Entero}
- INICIO
- Escribir "Ingrese el RUT, dígito por dígito, sin el dígito verificador: "
- Escribir "Ingrese 1° dígito: "
- Leer (rut1)
- Escribir "Ingrese 2° dígito: "
- Leer (rut2)
- Escribir "Ingrese 3° dígito: "
- Leer (rut3)
- Escribir "Ingrese 4° dígito: "
- Leer (rut4)
- Escribir "Ingrese 5° dígito: "
- Leer (rut5)
- Escribir "Ingrese 6° dígito: "
- Leer (rut6)
- Escribir "Ingrese 7° dígito: "
- Leer (rut7)
- Escribir "Ingrese 8° dígito: "
- Leer (rut8)
- //multiplicacion
- res1<-rut8*2
- res2<-rut7*3
- res3<-rut6*4
- res4<-rut5*5
- res5<-rut4*6
- res6<-rut3*7
- res7<-rut2*2
- res8<-rut1*3
- //suma
- suma<-res1+res2+res3+res4+res5+res6+res7+res8
- //resto de division por 11
- rest<-suma mod 11
- di_ve<-11-rest
- si (di_ve=10) entonces
- Escribir "El digito verificador es: K "
- Escribir "RUT es: ",rut1,rut2,rut3,rut4,rut5,rut6,rut7,rut8
- sino
- Escribir "El digito verificador es:", di_ve
- Escribir "RUT es: ",rut1,rut2,rut3,rut4,rut5,rut6,rut7,rut8,di_ve
- {Fin Condicional si}
- FIN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement